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PRODUCT TITLE: CZTURAO TMO3-TU4S DATA RELIBILITY PROGRAM 
DATE CREATED: 25 MAY 1978 
MAINTAINER: COMPUTER SPECIAL SYSTEMS 
AUTHOR: CSS DIAGNOSTICS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS 
FURNISHED TO THE PURCHASER UNDER A LICENSE FOR USE 
ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
are mg ON EQUIPMENT THAT IS NOT SUPPLIED BY 
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COPYRIGHT (@) 1975, 1978 BY DIGITAL EQUIPMENT CORPORATION 





¢ 1 
TMO3/TU4S DATA eo PROGRAM MACY11 30(1046) 22-JUN-78 09:14 PAGE 2 
CZTURA.P11 13-JUN-78 10:30 


TABLE OF CONTENTS 
PARAGRAPH SUBJECT 


ABSTRACT 
REQUIREMENTS 
LOADING PROCEDURE 
STARTING PROCEDURE 
DATA PATTERNS 
RANDOMIZATION 
DYNAMIC PARAMETERS 
CONSOLE SWITCH 
ERROR PRINTOUTS 
STATISTICS PRINTOUT 
AUTO SEQUENCE 
TESTING PROCEDURES 
LISTING 


Moe eS oR 


WR 
CON O Sf Wwh— 


iP 
2. 
3 
4 
5 
6. 
- 
8 
a 
1 
1 
1 
1 


WwnMm—O-+ « 
ee 


w 
~m 





D1 
TMO3/TU4S DATA gad gH PROGRAM MACY11 30(1046) 22-JUN-78 09:14 PAGE 3 
CZTURA.P11 13-JUN-78 10:30 SEQ 0003 


1. ABSTRACT 


THIS PROGRAM IS DESIGNED TO BE USED BY AN EXPERIENCED ENGINEER 
/TECHNICIAN FOR EVALUATION AND DEBUGGING OF MAG TAPE DRIVES. 

THE PROGRAM IS CAPABLE OF nak aa tk THE TU4S MAGNETIC 

ON A MASSBUS THROUGH THE TMO3 MAG TAPE 

CONTROLLER. ANY COMBINATION OF TMO3'S & TU4S'S UP TO A MAXIMUM OF EIGHT 
(8), MAY BE TESTED BY A SINGLE EXECUTION OF THE PROGRAM. THIS 

FLEXIBILITY IS POSSIBLE BECAUSE THE PROGRAM HAS NO FIXED PARAMETERS 

OR TESTING SEQUENCE. THE ENTIRE TEST PLAN, INCLUDING PARAMETERS 

AND OPERATING SEQUENCE, IS DETERMINED BY THE OPERATOR THROUGH 

RESPONSES TO TELETYPE REQUESTS AND SETTING OF CONSOLE SWITCHES. 


THE PROGRAM PROVIDES FOR TESTING OF ALL TAPE DRIVE FUNCTIONS 
SUCH AS WRITING,READING REWINDING, TAPE POSITIONING,EOT - BOT 
SENSING AND ASSUMES A GOOD RH AND THOS. 


HOWEVER; THE RH AND TMO3 ARE TESTED SOMEWHAT INTRINSICALLY 
DURING THE TEST CYCLE IN ORDER TO PROVIDE FULL INFORMATION ABOUT 
ANY ERROR CONDITIONS DETECTED. 


DURING A TEST CYCLE, CHECKS ARE MADE FOR STATUS ERRORS,DATA ERRORS, 


POSITION ERRORS,WORD COUNT AND CURRENT MEMORY ADDRESS ERRORS 
WHEREVER APPLICABLE AS DETECTED BY THE RH OR TAOS. 


REQUIREMENTS (HARDWARE) 


ANY PDP-11 PROCESSER 
8K OF CORE 
TELETYPE 
TMO3 TAPE CONTROLLER 
- 1 TO 8 MAG TAPE DRIVES 
- MASSBUS CONTROLLER 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY TAPES 
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STARTING PROCEDURE 


THERE ARE FOUR (4) STARTING ADDRESSES THAT MAY BE USED; 
200(8) ,204(8),210(8) ,AND 240(8): 


A. 200(8): 


B. 204(8): 


C. 210(8): 


- 240(8): 


E. 300(8): 


THIS ADDRESS MUST BE USED ON INITIAL START FROM 

LOAD AS ALL PARAMETERS ARE ENTERED FROM HERE. 

REQUESTS ARE PRINTED ON THE TELETYPE FOR ENTRY OF 

RH STARTING ADDRESS, VECTOR ADDRESS, DRIVE NUMBER(TMO3 ADDRESS), 
SLAVE NUMBER, DENSITY,PARITY,FORMAT,RECORD COUNT,CHARACTER 
COUNT ,PATTERN NUMBER,TAPE MARK AND STALL FOR READ,WRITE, 
AND TURNAROUND. ALL REPONSES SHOULD BE MADE IN 

OCTAL AND WITHIN THE LIMITS OF THE PARAMETER. 

A QUESTION MARK (?) WILL BE TYPED IF ANY 

CHARACTER ENTERED IS NOT BETWEEN 0 THRU 7 (OCTAL). 

THE CHARACTER MAY BE RETYPED FOLLOWING THE QUESTION 

MARK. IF THE RESPONSE IS NOT WITHIN ITS LIMITS. A 
QUESTION MARK (?) IS TYPED AND THE ENTIRE RESPONSE 

MAY BE RENTERED. SOME RESPONSES REQUIRE MORE THAN ONE 

(1) CHARACTER, BUT NONE REQUIRES MORE THAN SIX (6). 
RESPONSES OF MORE THAN ONE CHARACTER NEED NOT HAVE 

LEADING ZEROS AND SHOULD BE TERMINATED BY A CARRIAGE 
ear LESS THAN THE MAXIMUM NUMBER OF CHARACTERS 


THIS ADDRESS SHOULD BE USED ANYTIME A RESTART 

OF THE PROGRAM IS NECESSARY AND THE PARAMETERS 
ENTERED AT THE INITIAL START OF 200(8) NEED NOT 

BE CHANGED. ALSO NOTE THAT ANY DATA PATTERN WHICH 
HAD BEEN GENERATED BY SETTING THE RANDOM DATA 

SWITCH (CONSOLE SWITCH EIGHT) WILL NOT BE OVERWRITTEN 
AND THERFORE IS HELD IN CORE FOR USE UNTIL 


CONSOLE SWITCH EIGHT(8) IS AGAIN SET AND THAT ALL STATISTICS WILL BE RETAINED. 


THIS ADDRESS IS THE SAME AS USING 204(8) IN THAT THE 

PREVIOUSLY SET PARAMETERS ARE USED; HOWEVER, THE DATA 

PATTERN IS RETURNED TO THE FIXED PATTERN ORIGINALLY 

CALLED FOR AT THE 200(8) START AND ALL STATISTICS ARE CLEARED TO ZERO. 


THIS IS A SPECIAL ADDRESS WHICH WILL CAUSE THE 
PROGRAM TO EXECUTE A PREDETERMINED TEST PLAN ON 
ALL AVAILABLE DRIVES AND SLAVES. THE ONLY INPUT 
REQUIRED BY THE OPERATOR IS A RESPONSE TO 

REQUESTS FOR THE RH ADDRESS, VECTOR ADDRESS, 
CONTINUOUS OPERATION OF THE SEQUENCE, AND NRZ ONLY. 


THIS ADDRESS IS TO BE USED AS A RESTART ONLY 

AND WiLL PERFORM JUST AS IN 200(8) EXCEPT THAT 
THE PARAMETER INPUT LIST IS SHORTENED. THE SHORT 
PARAMETER LIST CONSISTS OF DRIVE NUMBER, SLAVE 
NUMBER, DENSITY, PARITY, FORMAT, RECORD COUNT, 
CHARACTER COUNT, PATTERN, TAPE MARK, AND 


SEQ 0004 
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INTERCHANGE READ. 
**NOTE SEE ALSO SECTION 8-CONSOLE SWITCH SETTINGS 


THE FOLLOWING IS AN EXPLANATION OF THE INITIAL 
START (200 OCTAL) REQUESTS AND RESPONSES: 


REGISTER START: THE RESPONSE REQUIRED FOR THIS REQUEST 
IS TO ENTER THE ADDRESS OF THE FIRST RH 
REGISTER (CS1) AS A SIX DIGIT UNIBUS ADDRESS. 


VECTOR ADDRESS: THE RESPONSE FOR THIS REQUEST 
IS TO ENTER THE INTERRUPT VECTOR ADDRESS 
USED BY THE RH AS A THREE (3) DIGIT ADDRESS. 


DRIVE NUMBER: THE DRIVE NUMBEK (MASSBUS ADDRESS 
OF THE TMO3) IS ENTERED AS ONE (1) 
OCTAL CHARACTER AND MUST BE WITHIN THE LIMITS 
OF 0 THROUGH 7. 


SLAVE NUMBER: THE SLAVE NUMBER IS ENTERED AS ONE 
(1) OCTAL CHARACTER AND MUST BE 
WITHIN THE LIMITS OF O THROUGH 7. 
WHEN THE SLAVE NUMBER HAS BEEN 
ENTERED AND IS LEGAL, THE PROGRAM TESTS 
FOR THE PRESENCE OF A SLAVE OF THAT 
NUMBER. IF THE SLAVE IS AVAILABLE 
A PRINTOUT OF 7 CHANNEL, IF APPLICABLE, 
AND ITS SERIAL NUMBER (IN BCD) 
WILL BE MADE TO ASSIST THE OPERATOR 
IN SETTING OF DENSITY, PARITY, AND FORMAT. 
A CHECK IS MADE FOR THE PROPER SETTING 
OF THE DRIVE TYPE REGISTER; IF WRONG, A 
MESSAGE IS PRINTED FOR INFORMATION ONLY. 
IF THE SLAVE IS NOT AVAILABLE, 
A MESSAGE STATING SO WILL BE 
PRINTED AND A NEW SLAVE NUMBER 
REQUEST WILL BE ISSUED. WHEN A 
GOOD SLAVE NUMBER HAS BEEN E“TERED, 
REQUESTS FOR OPERATING DENSITY 
PARITY AND FORMAT ARE MADE FOR THAT 
SLAVE AND SHOULD BE RESPONDED TO 
ACCORDING TO THAT PARITICULAR SLAVE'S 
NEEDS. AS MANY AS EIGHT (8) SLAVE 
NUMBER REQUESTS MAY BE USED, HOW- 
EVER, AT LEAST ONE MUST BE USED. 
THE SLAVE NUMBERS AND THEIR RESPECTIVE 
DENSITY, PARITY AND FORMAT MAY BE ENTERED 
IN ANY ORDER. THE INFORMATION FOR 
EACH SLAVE ENTERED IS LOADED INTO A 
TABLE FOR REFERENCE IN TESTING. 
IF LESS THAN EIGHT(8) SLAVES ARE 
REQUIRED, THEN RESPONDING TO THE 
SLAVE NUMBER REQUEST WITH A CARRIAGE 
RETURN WILL TERMINATE THE SLAVE 
ENTRIES AND CONTINUE TO THE NEXT 
PARAMETER. IT SHOULD BE REMEMBERED 
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THAT AT LEAST ONE SLAVE epee REQUEST 
MUST BE ENTERED. {F THE FIRST 

REQUEST IS RESPONDED TO BY A CARRIAGE 
RETURN, THEN THE REQUEST WILL BE REPEATED. 


AUTOMATIC MODE OPERATION 


IF THE PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODE 

THE AUTO ACCEPT SEQUENCE TEST PLAN IS RUN. SEE SEC 11. BELOW; 

THE SOFTWARE SWR IS INVOKED WITH A SWITCH SETTING OF 100000 (HALT 
ON ERROR) IF LOADED VIA ACT11. NO OPERATOR INTERVENTION IS REQUIRED. 


**EXCEPTION: IF THIS PROGRAM IS LOADED VIA TMDP CHAIN MODE THE 
PROGRAM WILL TEST ALL SLAVES ON THE FIRST AVAILABLE 
DRIVE EXCEPT SLAVE 0. 
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DENSITY: 


PARITY: 


FORMAT: 


RECORD COUNT: 


CHARACTER COUNT: 


THE DESITY REQUEST IS RESPONDED TO BY ONE (1) OCTAL 
CHARACTER AND MUST BE WITHIN THE LIMITS OF O THRU 4. 
AS EACH SLAVE NUMBER IS ENTERED, A REQUEST FOR THE 
OPERATING DENSITY FOR THAT SLAVE IS TYPED. THE 
RESPONSE MEANINGS ARE AS FOLLOWING: 


A. 3 = 800BPI, NRZI 


B. 4 = 1600BPI, PE (9 CHANNEL ONLY) 


THE PARITY REQUEST IS RESPONDED TO BY ONE (1) 
OCTAL CHARACTER AND MUST BE EITHER O OR 1. 


A. 1 = EVEN PARITY 
B. 0 = ODD PARITY 


THE FORMAT REQUEST IS RESPONDED 
TO BY TWO (2) CHARACTERS 
AND SHOULD BE AS FOLLOWS 


A. 9 CHANNEL NOPMAL (TWO FRAMES PER WORD) 
B. 15 = CORE DUMP (FOUR FRAMES PER WORD) 

16 = PDP-15 OR IBM COMPATABLE(TWO FRAMES PER WORD) 
(DATA IS BYTE SWAPPED ON TAPE) 


THIS REQUEST IS RESPONDED TO BY A SIX (6) CHARACTER 
OCTAL NUMBER FROM 1 TO 177777. REMEMBER LEADING 
ZEROS ARE NOT REQUIRED AND IF LESS THAN SIX 
CHARACTERS ARE ENTERED, A CARRIAGE RETURN 

WILL TERMINATE THE RESPONSE. THE RECORD COUNT 

IS USED IN CONJUCTION WITH THE CHARACTER COUNT 

TO ESTABLISH A BLOCKING FACTOR FOR USE IN READ OR 
WRITE CYCLES. 


THIS RESPONSE IS ENTERED AS FOUR (4) OCTAL 
CHARACTERS WITHIN THE LIMITS OF 20 THRU 4000. AGAIN 
LEADING ZEROS ARE NOT REQUIRED AND A CARRIAGE 
RETURN TERMINATES A LESS THAN FOUR (4) CHARACTER 
RESPONSE. THE CHARACTER COUNT IN CONJUNCTION 
WITH THE RECORD COUNT IS USED TO ESTABLISH 
THE BLOCK SIZE (CHARACTERS PER RECORD, AND 
RECORDS PER BLOCK) USED IN READ AND WRITE CYCLES 
THE SAME BLOCKING IS USED ON ALL AVAILABLE UNITS. 


SEQ 0007 
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PATTERN NUMBER: THIS RESPONSE IS A TWO (2) CHARACTER OCTAL 
NUMBER WITHIN THE LIMITS OF O THRU 15(8). 
THE NUMBER ENTERED WILL CAUSE A SPECIFIC DATA 
PATTERN TO BE USED FOR ALL READING AND WRITING. THIS 
DATA PATTERN IS NOT CHANGED UNLESS RANDOM DATA 
IS REQUESTED BY SETTING CONSOLE SWITCH EIGHT (8) 
TO A ONE. RESETTING OF THE RANDOM DATA SWITCH 
DOES NOT CAUSE REVERSION TO THE FIX®. PATTERN, 
BUT WILL HOLD THE LAST GENERATED PATTERN UNTIL 
A RESTART IS DONE FROM LOCATION 200(8), 210(8), OR 300(8). 
WHEN OPERATING IN NRZ MODE (DENSITY 0-3) 
THE PROGRAM CONSTRUCTS AND SAVES 
BOTH AN EXPECTED CRC CHARACTER AND AN 
LRC CHARACTER FOR COMPARISONS WITH 
THE HARDWARE GENERATED CHECK CHARACTER 
IN BOTH READ AND WRITE. 
THE SELECTION OF DATA PATTERN ZERO (0) HAS A 
SPECIAL USE. PATTERN NUMBER ZERO (0) WILL 
CAUSE TO BE READ IN AT THE HIGH SPEED PAPER 
TAPE READER ANY DATA PATTERN DESIRED. 
THE EXTERNAL INPUT DATA THOUGH THE READER 
IS DONE BY PREPARING A PAPER TAPE WITH A PROGRAM 
CALLED DTC. (CZTUTAO) ANY CONFIGURATION 
OF BITS AND CHARACTERS MAY BE USED AND A LIMIT 
OF 377(8) CHARATERS IS IMPOSED. WHEN EXTERNAL 
DATA IS INPUT, THE ENTIRE WRITE BUFFER IN 
CORE IS FILLED WITH THE PATTERN SO THAT ANY 
SIZE RECORD MAY BE USED. DATA PATTERN 
PATTERN ZERO (0) EXTERNAL PAPER TAPE NEED ONLY 
BE READ ONCE AT INITIAL START OF 200(8), AND 
NEED NOT BE READ AGAIN UNLESS OVERWRITTEN BY 
RANDOM DATA. BE SURE TO LOAD THE READER 
BEFORE PRESSING START. 


TAPE MARK: THE TAPE MARK REQUEST IS USED TO DETERMINE 
IF THE OPERATOR WISHES TO HAVE EACH 
DATA BLOCK SEPERATED BY A TAPE MARK. IF 
RESPONDED TO BY A ONE (1) THE TAPE MARK 
WILL BE WRITTEN AND WHEN READING WILL 
BE EXPECTED AT THE END OF DATA BLOCK. 
A ZERO (0) RESPONSE WILL DISALLOW TAPE 
MARK. PLEASE NOTE THAT THE TAPE MARK 
RECORD INCREASES THE BLOCK SIZE BY ONE (1) 
RECORD; IN OTHER WORDS, A BLOCK OF 100 
RECORDS WILL HAVE THE TAPE MARK AS RECORD 101. 


INTERCHANGE READ: THIS REQUEST IS RESPONDED TO BY 
A SINGLE CHARACTER INPUT OF EITHER 
ONE (1) OR ZERO (0). A RESPONSE OF ONE (1) 
WILL CAUSE ALL READING TO BE DONE IN 
THE INTERCHANGE MODE. A ZERO RESPONSE 
WILL CAUSE READING IN NORMAL MODE. 
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SINGLE PASS: THIS REQUEST IS RESPONDED TO BY EITHER A ONE (1) 
OR A ZERO (0). RESPONSE OF 1, WILL CAUSE THE TEST 
TO BE STOPPED AFTER THE LAST AVAILABLE DRIVE 
REACHES END OF TAPE. A RESPONSE OF 0, WILL 
ALLOW CONTINUOUS RUNNING THROUGH MULTIPLE PASSES. 
TO RESTART AT END OF PASS, PRESS CONTINUE, OR 
RESTART AT THE CONSOLE. 


STALLS: THE STALL REQUESTS ARE RESPONDED TO BY A SIX (6) 
CHARACTER OCTAL NUMBER WITHIN THE LIMITS OF 1 
THRU 177777. LEADING ZEROS ARE NOT REQUIRED AND 
AN ENTRY OF LESS THAN SIX (6) CHARACTERS SHOULD 
BE TERMINATED BY A CARRIAGE RETURN. EACH INCREMENT 
OF THE VALUE ADDS ABOUT 2.6 MICSEC TO THE DELAY. 


READ: THE TIME DELAY BETWEEN EACH RECORD READ 
WRITE: THE TIME DELAY BETWEEN EACH RECORD WRITTEN 


TURN AROUND: TIME DELAY BETWEEN CHANGES OF 
TAPE DIRECTION (FORWARD,TO REVERSE,ETC.) 
AND BETWEEN BLOCKS. 


FIXED PARAMETERS: IT SHOULD BE NOTED THAT ALL PARAMTERS EXCEPT 
FOR THE SLAVE DESCRIPTION VALUES (SLAVE 
NUMBER, DENSITY, PARITY, AND FORMAT) HAVE NOMINAL 
VALUES ALREADY STORED IN THE PROGRAM. 
COUNT, CHARACTER COUNT, TAPE MARK AND STALLS) IS TYPED. 
ITS PRESENT STORED VALUE IS ALSO PRINTED. 
IF THESE VALUES NEED NOT BE CHANGED, SIMPLY 
TYPE A CARRIAGE RETURN AS RESPONSE AND NO 
CHANGE WILL BE MADE. EACH START OF THE PROGRAM 
AT 200(8) WILL SHOW THE CURRENT VALUES Y THESE 
PARAMETERS AS PER THE LAST ENTRY. — S 
FRESH LOAD OF THE PAPER TAPE IS DONE, THE 
PARAMETERS WILL REFLECT THE FIXED VALUES STORED 
IN THE PROGRAM. 


- RECORD COUNT = 200 
- CHARACTER COUNT = 4000 
. — NUMBER = 1 


INTERCHANGE READ = 0 

- SINGLE PASS = 0 

- CRC CORRECTION = 0 

- READ STALL = 10 

- WRITE STALL = 10 

- TURN AROUND STALL = 10 


—ZFrO"*™TOOW> 
a . 
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SAMPLE START AT 200(8): 


THE FOLLOWING IS A SAMPLE OF THE 

PRINTED REQUESTS AND THEIR RESPONSES. 
RESPONSES ARE ENCLOSED IN PARENS FOR 
CLARITY ONLY AND (CR) MEANS CARRIAGE RETURN 


LOAD ADDRESS 200(8), SET CONSOLE SWITCHES, PRESS START SWITCH: 
TU4S TAPE DRIVE TEST 


REGISTER START=172440(172440) 
VECTOR ADDRESS=224(CR) 

DRIVE NUMBER (4) 

SLAVE NUMBER=(5) SN: 5009 
DENSITY=(3) 

PARITY=(0) 

FORMAT=(14) 

SLAVE NUMBER=(2) 9 CHAN SN: 0022 
DENSITY=(3) 

PARITY=(1) 

FORMAT=(15) 

SLAVE NUMBER=(CR) 

RECORD COUNT=100 (500) (CR) 
CHARACTER COUNT=200 (38)?(7)(CR) 
PATTERN NUMBER=1 (22) 


(6) (CR) 

TM=(0) 

INTERCHANGE READ=(1) 
SINGLE PASS=(0) 


ENTER STALLS 

READ=1 (CR) 

WRITE=1 (CR) 

TURN AROUND=1 (3000) (CR) 


THE PROGRAM WILL NOW PERFORM THE TEST CYCLE SET IN 

THE CONSOLE SWITCHES ON SLAVE FIVE (5) THEN TWO (2), 

ONE BLOCK ON EACH UNIT PER CYCLE, USING DATA PATTERN 
NUMBER SIX (6) WITH A BLOCKING FACTOR OF 37 CHARACTERS 
PER RECORD AND 500 RECORDS PER BLOCK. THE DELAYS ARE SET 
FOR MINIMUM ON READ AND WRITE, AND APPROXIMATELY .75 
SECONDS ON TURN AROUND. 


NO TAPE MARKS WILL BE WRITTEN AND ALL READING 
WILL BE DONE IN INTERCHANGE MODE (MAINT MODE 0001). 


SEQ 0010 
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5. DATA PATTERNS 


THERE ARE FIFTEEN DATA PATTERN GENERATORS STORED IN CORE 
AND ANY ONE OF THESE MAY BE SELECTED. THE ONE UNIQUE 
CASE IS PATTERN ZERO(O); SELECTION OF PATTERN ZERO(O) 
REQUIRES THAT A PREVIOUSLY PREPARED PAPER TAPE BE 
ENTERED AT THE HIGH SPEED READER. THIS TAPE CONTAINS 

A DATA PATTERN OF NO MORE THAN 377 OCTAL 

CHARACTERS. THE FIRST CHARACTER READ IN IS THE 

NUMBER OF ACTUAL DATA CHARACTERS THAT ARE CONTAINED 

ON THE TAPE. EACH DATA CHARACTER MAY BE ANY 

COMBINATION OF BITS AND WILL BE LOADED INTO —y 

AS THEY APPEAR ON THE TAPE. NO MATTER HOW MANY 

CHARACTERS ARE ON TAPE, THE ENTIRE WRITE BUFFER (4000 CHARACTERS) 
WILL BE FILLED WITH THE PATTERN ENTERED SO THAT ANY 

SIZE RECORD CAN BE USED. (SEE DTC CZTUTAO) 

THE PROGRAM GENERATES A CYLIC REDUNDENCY CHECK 

CHARACTER (CRC) AND A LONGITUDINAL REDUNDENCY CHECK 
CHARACTER (LRC) FOR COMPARISONS AGAINST THE CRC AND LRC 
GENERATED BY THE HARDWARE IN NRZI READS OR WRITES. 


THE FOLLOWING IS A LIST OF THE DATA PATTERNS AVAILABLE: 


DATAO: EXTERNAL INPUT THRU HIGH SPEED READER (SEE DTC) 
ALL ONE BITS IN ALL CHARACTERS 
ALL ZERO BITS IN aLL CHARACTERS 
A ONE BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ZEROS 
A ZERO BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ONES. 
ALTERNATING ONE AND ZERO BITS IN EACH CHARACTER 
ALTERNATING ZERO AND ONE BITS IN EACH CHARACTER 
: SAME AS DATAS BUT WITH EVERY OTHER CHARACTER COMPLEMENTED 
: WALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 
: INCREMENTING CHARACTERS (000-377) 
: DECREMENTING CHARACTERS (377-000) 
: ALTERNATING CHARACTERS OF ALL ZERO AND ALL ONE BITS 
: WALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 
DATA15: AUTO SEQUENCE PATTERN 0,0,-1,-1.,-1,0,0 
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6. RANDOMIZATION 


THERE ARE THREE (3) VALUES THAT MAY BE GENERATED RANDOMLY; 

DATA, CHARACTER COUNT, AND RECORD COUNT. THESE ARE NORMALLY SET TO 
SOME FIXED VALUE BUT MAY BE RANDOMIZED BY SETTING THE APPROIATE 
CONSOLE SWITCHES. 


A. RANDOM DATA: (CONSOLE SWITCH 8) 
GENERATES AN ENTIRE BUFFER, CHARACTER BY 
CHARACTER, OF RANDOM DATA WHEN SWITCH 8 
IS SET TO A ONE. ONCE SET, THE RESETTING OF 
SWITCH 8 CAUSES THE LAST GENERATED PATTERN 
TO BE RETAINED IN CORE. A RESTART AT LOCATION 
200(8) OR 210(8) WILL CAUSE REVERSION OF THE 
DATA TO THE FIXED PATTERN REQUESTED INITIALLY. 
A RESTART AT LOCATION 204(8) WILL HOLD 
THE LAST GENERATED PATTERN IN CORE UNTIL SWITCH 
8 IS AGAIN SET. 
ALTHOUGH THE DATA IS GENERATED AS RANDOM, 
THE PROGRESSION OF RANDOM CHARACTERS IS ALWAYS 
THE SAME FROM THE OUTSET OF RANDOMIZATION. 
THEREFORE IT IS POSSIBLE TO GENERATE ONE TAPE REEL 
OF RANDOM DATA ON ONE UNIT, RESTART THE 
PROGRAM TO RE~ESTABLISH THE OUTSET POINT, AND 
READ THE RANDOM TAPE REEL ON ANOTHER UNIT 
FOR COMPATABILITY TESTING. IN MULTIDRIVE SYSTEMS THE SAME 
BLOCK OF DATA, WHETHER RANDOM OR FIXED, IS 
WRITTEN OR READ ON EACH AVAILABLE UNIT IN THE 
ORDER THAT THEY WERE ENTERED, BEFORE BEING CHANGED. 


B. RANDOM CHARACTER COUNT: (CONSOLE SWITCH 7) 
GENERATES A DIFFERENT NUMBER OF CHARACTERS 
PER RECORD TO BE WRITTEN ON EACH BLOCK CYCLE. 
THE SAME NUMBER OF CHARACTERS PER RECORD IS 
WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
BEING CHANGED. RESETTING SWITCH 7 HOLDS THE 
LAST VALUE GENERATED. 


C. RANDOM RECORD COUNT: (CONSOLE SWITCH 6) 
GENERATES A DIFFERENT NUMBER OF RECORDS 
FOR EACH BLOCK OF DATA WRITTEN OR READ ON 
EACH BLOCK CYCLE. THE SAME NUMBER OF RECORDS 
IS WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
ta a RESETTING SWITCH 6 HOLDS LAST VALUE 
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7. DYNAMIC PARAMETERS: 


THE THREE (3) STALL VALUES ARE CONSIDERED TO BE DYNAMIC 
PARAMETERS AS THEY MAY BE CHANGED WHILE THE PROGRAM IS 

RUNNING BY TYPING A CONTROL B CHARACTER AT THE TELETYPE. 

AS SOON AS THE BUS IS RELEASED BY THE MAG TAPE OPERATION 

IN PROGRESS, THE PROGRAM WILL RESPOND TO THE CONTROL C INPUT 
BY TYPING A REQUEST FOR NEW STALL PARAMETERS. THE LAST VALUES 
THAT WERE ENTERED WILL BE PRINTED AS THE STORED VALUES AND MAY 
BE CHANGED BY ENTERING NEW VALUES OR LEFT UNCHANGED BY 

TYPING A CARRIAGE RETURN. 

THE YOZZLE STALL IS ALSO DYNAMIC AND CAN BE CHANGED 

BY TYPING A CONTROL B WHILE DOING A YOZZLE. A YOZZLE STALL 
REQUEST WILL BE PRINTED AND SHOULD BE RESPONDED TO WITH 

THE DESIRED VALUE. 
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8. CONSOLE SWITCH SETTINGS 
CONTROL : 


1) CONTROL G < G>; 

SELECTS SOFTWARE SWR AND ALLOWS USER TO SELECT NEW SWITCHES. 
THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SWR. 
AFTER THE "NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 

A) TYPE A NUMBER TO BE LOADED INTO THE SOFTWARE SWR 

B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWR 

CONTENTS WILL NOT BE CHANGED. 


2) CONTROL A < A>; 
ALTERNATES USAGE OF THE SWR BETWEEN THE HARDWARE SWR & SOFTWARE SwR. 


3) CONTROL B < B>; 
SEE SECTION , DYNAMIC PARAMETERS 


4) CONTROL U < UD; 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 


THE CONSOLE SWITCHES ARE USED TO SET UP THE TEST CYCLE 
DESIRED, TO GENERATE RANDOM VALUES, AND TO CONTROL ERROR 
RESPONSES. THE SWITCHES SHOULD BE SET IN THE DESIRED 
MANNER BEFORE PRESSING THE START SWITCH BECAUSE THEY 

ARE ALL DYNAMIC AND WILL RUN THE PROGRAP IN ANY 
CONFIGURATION. ALL SWITCHES SET TO ZERO(O) IS NORMAL. 


SW15: 1=STOP ON ERROR 
O=CONTINUE ON ERROR 


SW14:  1=PRINT READ/WRITE STATISTICS 
0=D0 NOT PRINT STATS 


SW13: 1=DO NOT CHECK DATA ERRORS 
O=CHECK DATA ERRORS 


SW12:  1=D0 NOT CHECK WRITE STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
O=CHECK WRITE STATUS ERRORS 


SW11:  1=D0 NOT CHECK READ STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
O=CHECK READ STATUS ERRORS 
SW10: 1=D0 NOT PRINT ANY ERRORS (EXCEPT CATASTROPHIC ERRORS) 


O=PRINT ALL ERRORS 


SW9: 1=REWIND ALL AVAILABLE TAPES 
0=D0 NOT REWIND 


SW8: 1=GENERATE RANDOM DATA 
O=USED FIXED DATA 
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SW7: T=GENERATE RANDOM CHARACTER COUNT 
O=USE FIXED CHARACTER COUNT 


SwW6: T=GENERATE RANDOM RECORD COUNT 
O=USED FIXED RECORD COUNT 


SW5: 1=YOZZLE ON CURRENT RECORD 
0=D0 NOT YOZZLE ON RECORD 


SwW4: 1=D0 WRITE/READ RETRIES 
0=D0 NOT RETRY 


Sw3: 1=D0 NOT READ FORWARD 
O=READ FORWARD 


Swe: 1=D0 NOT READ REVERSE 
O=READ REVERSE 


Swi: 1=READ FORWARD FIRST 
O=READ REVERSE FIRST 


Sw0: 1=D0 NOT WRITE 
O=WRITE 
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SWITCH EXPLANATION AND EXAMPLES: 


SwWO-3: THESE SWITCHES ARE USED TO CONTROL THE SEQUENCE 
OF MAG TAPE OPERATIONS PREFORMED ON EACH AVAILABLE 
UNIT. THE BLOCK OF DATA DESCRIBED THROUGH 
THE RESPONSES TO TELETYPE REQUESTS AT INITIAL START 
WILL BE EITHER WRITTEN OR READ FROM EACH AVAILABLE 
UNIT IN THE ORDER THAT THEY WERE ENTERED. THE SEQUENCE 
OF OPERATIONS IS CALLED A CYCLE, AND WILL BE PERFORMED 
CONTINUOUSLY UNTIL STOPPED BY THE OPERATOR. WHEN END 
OF TAPE IS REACHED, THE UNIT WILL BE REWOUND AND 
FLAGGED AS UNAVAILABLE FOR TEST UNTIL ALL UNITS HAVE 
REACH EOT, AT WHICH TIME TESTING IS RESUMED ON ALL 
AVAILABLE UNITS. 


EXAMPLES: 0-3 


S$WO=0,SW1=0,SW2=1,SW3=1 
WRITE ONLY X RECORDS OF Y CHARACTERS 


SWO=0,SW1=0,SW2=1,SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD X RECORDS 


SWO=0,SW1=0,SW2=0,SW3=1 
WRITE THEN READ REVERSE X RECORDS. 


SWO=0, SW1=0,SW2=0,SW3=0 
WRITE THEN READ REVERSE AND READ FORWARD X RECORDS 


SWO=0,SW1=1,SW2=0,SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD THEN REVERSE 


SWO=1,SW1=0,SW2=1,SW3=0 
READ TAPE FORWARD X RECORDS 


SWO=1,SW1=0,SW2=0,SW3=1 
READ TAPE REVERSE X RECORDS 


SWO=1,SW1=0,SW2=0,SW3=0 
READ TAPE REVERSE THEN FORWARD 


SWO=1,SW1=1,SW2=0,SW3=0 
READ TAPE FORWARD THEN REVERSE 
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SwW4: SWITCH FOUR (4), WHEN SET TO A ONE (1), WILL 
CAUSE ANY DATA RELATED ERROR TO BE RETRIED. 
THE WRITE RETRY SCHEME CONSISTS OF REWRITING THE RECORD 
IN THE SAME SPOT ON TAPE FOUR (4) TIMES. IF 
ALL FOUR (4) REPEATS ARE SUCCESSFUL, THE 
RECORD IS CONSIDERED AS RECOVERED, AND A TAPE 
WRITE ERROR IS LOGGED. IF ANY OF THE FOUR 
(4) REPEATS IS UNSUCESSFUL, A SKIP ERASE IS 
DONE, A SUPECTED BAD TAPE SPOT IS LOGGED 
AT THIS BLOCK AND RECORD NUMBER, AND A SECOND 
RETRY OF FOUR REPEATS IS DONE. IF AFTER FOUR 
(4) RETRIES, THE RECORD CANNOT BE RECOVERED 
A NOTIFICATION iS PRINTED, AND TESTING IS 
RESUMED ON THE NEXT RECORD. 
IF 20(8) BAD TAPE SPOTS ARE FOUND, THE 
SLAVE WILL BE REWOUND AND REMOVED FROM 
TESTING WITH AN APPROPRIATE MESSAGE PRINTED. 
THE READ RETRY SCHEME CONSISTS OF REREADING THE 
RECORD UP TO EIGHT TIMES. IF ALL EIGHT REREADS ARE 
BAD, IT IS A HARD ERROR. IF ANY REREAD IS 
SUCCESSFUL, THIS IS A SOFT ERROR. 
IF THE ORIGINAL ERROR IS OF THE NON-RETRYABLE 
TYPE (IE: ILF,RAR,ILR,NEF ,CBUSPE), THE RETRY SCHEME 
IS NOT ENTERED AND A MESSAGE IS PRINTED. 


SWITCH FIVE (5) WHEN SET DURING A READ 
FORWARD OR REVERSE WILL CAUSE THE TAPE 

TO CONTINUOUSLY READ THE CURRENT RECORD 

BY SPACING EITHER FORWARD OR REVERSE AND 
REREADING THAT RECORD. THIS TAPE MOVEMENT 
IS CALLED YOZZLING. THERE IS A SOFTWARE 
DELAY EXECUTED BETWEEN EACH SPACE/READ 

OF THE RECORD AWD IT MAY BE VARIED BY 
TYPING CONTROL C ON THE TELETYPE DURING 
THE EXECUTION OF THE YOZZLE AND RESPONDING 
TO THE PRINTED REQUEST WITH A SIX (6) 
DIGIT VALUE. THE YOZZLE STALL IS PRESET 
TO A VALUE OF 3000 IN THE PROGRAM TO 
PREVENT EXCESSIVE TAPE WEAR, BUT MAY BE 
SET TO ANY VALUE THROUGH THE TELETYPE. 


THESE THREE (3) SWITCHES CONTROL THE RANDOMIZATION 
OF DATA AND BLOCK SIZE AND MAY BE SET 

AND RESET AT ANY TIME. THE ACTUAL CHANGE 

WILL TAKE PLACE BETWEEN BLOCK CYCLES. 


SWITCH NINE (9) WHEN SET WILL CAUSE ALL 
AVAILABLE TAPE UNITS TO BE REWOUND AT 

THE END OF THE CURRENT BLOCK CYCLE. TESTING 
WILL BE RESUMED AT A BLOCK COUNT OF 

ONE (1) WHEN ALL UNITS HAVE REACHED BOT. 
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$W10-13: THESE SWITCHES ARE USED TO CONTROL THE 
ERROR HANDLING TO BE DONE ON THE TAPE 
OPFPATION DESCRIBED BY SWITCHES 0-3. 


SWITCH TEN (10) WHEN SET TO A ONE 

WILL DISALLOW ANY ERROR PRINTOUTS MADE 

ON THE OPERATION IN PROGRESS. CATASTROPHIC 
FAILURES AND INFORMATIO# PRINTOUTS WILL 

STILL OCCUR. IE: UNIT NOT AVAILABLE, ILLEGAL 
BOT, DROP OR PICK OVERFLOW, AND EOT REWIND. 


SWITCH ELEVEN (11) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON READ (FORWARD OR REVERSE) OPERATIONS. 


SWITCH TWELVE (12) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON WRITE OPERATIONS. 


SWITCH THIRTEEN (13) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING OF READ 
DATA. THIS SWITCH HAS NO EFFECT ON 
STATUS CHECKING. 


**NOTE THAT WHEN SW11 OR 12 ARE SET, NOT ONLY ARE ERRORS NOT CHECKED, BUT THEY ARE NOT CLEARED EITHER. 
***THEREFOR USE CAUTION TO ASSURE THAT OPERATIONS ARE NOT UNEXECUTED DUE TO UNCLEARED ERRORS. 
****D0 NOT SET SW 11 OR 12 TO A ONE (1), DURING A RETRY SEQUENCE. 


SWITCH FOURTEEN (14)WHEN SET TO A ONE (1) WILL 

PRINT THE ACCUMULATED READ/WRITE STATISTICS FOR THE SELECTED 
SLAVE UNDER TEST AT THE END OF THE CURRENT BLOCK 

CYCLE. THE STATISTICS PRINTED ARE THE NUMBER OF BITS 
DROPPED OR PICKED, THE NUMBER OF RETRIES, WRITE ERRORS, 

READ ERRORS, AND DATA ERRORS. 


SWITCH FIFTEEN (15) WHEN SET TO A ONE, 

WILL CAUSE THE PROGRAM TO HALT ON ANY 

ERROR DETECTED BY THE OPERATION IN PROGRESS. 
IF BOTH SWITCH TEN (10) AND FIFTEEN (15) 

ARE SET, THE ACTUAL ERROR DETECTED WILL 

NOT BE PRINTED BUT WILL CAUSE A HALT. 

IF SWITCH TEN (10) IS RESET BEFORE PRESSING 
CONTINUE, THE ERROR WHICH CAUSED THE HALT 
WILL BE PRINTED BEFORE TESTING IS RESUMED. 
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ERROR PRINTOUTS 


THERE ARE THREE TYPES OF ERROR PRINTOUTS MADE BY 

THE PROGRAM; OPERATION ERRORS, DATA ERRORS, AND CONDITION 

ERRORS. EACH ERROR MESSAGE PRINTED IS PROCEEDED BY A TWO LINE 
HEADER WHICH CONTAINS THE DRIVE NUMBER, SLAVE NUMBER, 

DENSITY, PARITY, AND FORMAT ON THE FIRST LINE, AND THE BLOCK NUMBER, 
RECORD NUMBER, RECORD SIZE, AND ERROR TYPE ON THE SECOND. 


A. OPERATION ERRORS: 


THESE ARE ERRORS WHICH CAN OCCUR AS A 
DIRECT RESULT OF A TAPE OPERATION. 


1. READ/WRITE STATUS ERRORS: THESE ARE DETECTED BY EITHER THE TMO3 
ITSELF OR BY THE MASSBUS CONTROLLER. 
ALL STATUS ERRORS WILL BE REPORTED. 


2. TAPE POSITION ERRORS: THESE ARE INDICATED BY AN INCORRECT 
SPACE OR REWIND OPERATION IN WHICH 
TAPE POSITION BECOMES UNRELIABLE. 


ERRORS: 


DATA ERRORS WILL OCCUR WHEN TAPE IS 

BEING READ AND THE DATA FROM TAPE DOES 

NOT MATCH THE EXPECTED DATA. WHEN READING 

IN THE REVERSE DIRECTION, THE RECORD NUMBERS 
WILL BE COUNTED DOWN FROM LAST TO FIRST. 

THE CHARACTER NUMBERS IN REVERSE READS WILL 
ALSO BE COUNTED DOWN IN ORDER TO REFLECT 

TAPE POSITION RATHER THAN THE ORDER TRANSFERRED. 


BECAUSE DATA RECORDS CAN BE UP TO FOUR THOUSAND 
CHARACTERS LONG, AN ERROR CONDITION WHICH WILL CAUSE 
THE ENTIRE RECORD TO READ INCORRECTLY COULD CAUSE A VERY 
LENGTHY PRINTOUT. THEREFORE, A COUNTER OF SUCCESSIVE 
BAD CHARACTERS IS EMPLOYED. IF TEN (10) CHARACTERS IN 
SUCCESSION ARE BAD, A NOTIFICATION IS PRINTED 

(BAD RECORD) AND THE NEXT TWENTY FIVE (25) CHARACTERS 
ARE SKIPPED BEFORE CHECKING IS RESUMED. IF THE 

BAD RECORD CONDITION OCCURS THREE (3) TIMES IN ONE 
RECORD, THE REST OF THE RECORD IS SKIPPED, DOWN 

TO THE LAST TEN (10) CHARACTERS WHICH WILL BE 

CHECKED. THE SKIPPING AND RESUMPTION OF CHECKING 

WILL ONLY BE DONE ON RECORDS WHICH ARE LONG 

ENOUGH TO ALLOW IT. 





H 2 
TMO3/TU4S DATA RELIABILITY PROGRAM MACY11 30(1046) 22-JUN-78 09:14 PAGE 20 
CZTURA.P11 13-JUN-78 10:30 SEQ 0020 


C. CONDITION ERRORS: (CATASTROPHIC) 


THESE PRINTOUTS REFLECT THE STATE OF THE TAPE SYSTEM 
EITHER BEFORE OR AFTER AN OPERATION 


1, EQT: WHEN EOT (END OF TAPE) IS ENCOUNTERED DURING 
EITHER A READ OR WRITE, THE CYCLE IS COMPLETED 
ON THE SHORTENED BLOCK AFTER WHICH THE SLAVE 
WILL BE REWOUND AND FLAGGED AS UNAVAILABLE 
FOR TESTING UNTIL ALL SLAVES HAVE REACHED EOT AND 
ARE REWOUND. WHEN THE LAST AVAILABLE SLAVE 
HAS REACHED EOT AND BEEN REWOUND TO BOT, 
TESTING WILL BE RESUMED ON ALL SLAVES. 


- ILLEGAL BOT: WHEN A SLAVE ENCOUNTERS BOT DURING 
A READ, WRITE, OR SPACE OPERATION, AN ERROR 
IS PRINTED AND THE PROGRAM HALTED. THIS IS 
A CATASTROPHIC ERROR. TESTING MAY BE RESUMED 
BY PRESSING CONTINUE; BUT A RESTART IS 
SUGGESTED. 


- NO INTERRUPT RETURNED: EACH TAPE OPERATION SHOULD BE 
TERMINATED BY THE SETTING OF AN INTERRUPT IN 
THE CPU. IF NO INTERRUPT IS RETURNED WITHIN 
THE APPROPIATE TIME, AN ERROR IS PRINTED. 


- NO MEDIUM ON-LINE: BEFORE AN OPERATION IS ATTEMPTED, 
THE TMO3 IS CHECKED FOR MOL. IF IT IS NOT 
SET, AN ERROR IS PRINTED, AND THE PROGRAM STOPPED. 
TESTING MAY BE RESUMED BY PRESSING CONTINUE. 


- NO BOT ON REWIND: AS EACH SLAVE IS REWOUND A CHECK 
IS MADE TO ASSURE THAT PROPER POSITION AT BOT 
IS ESTABLISHED. IF BOT IS NOT SET UPON COMPLETION OF 
A REWIND, AN ERROR IS PRINTED AND THE PROGRAM 
WILL HALT. PRESS CONTINUE TO RESUME TESTING. 


- POSITION ERROR: IF POSITION IS LOST DURING A RETRY, 
A MESSAGE IS PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TESTING UNTIL ALL ARE 
RESTARTED AT BLOCK ONE. 


- BAD TAPE OVERFLOW: IF 20(8) BAD TAPE SPOTS ARE FOUND, 
A MESSAGE IS PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TESTING UNITLL ARE 
RESTARTED AT BLOCK ONE. 


- HARD READ ERROR: IF ANY HARD READ ERROR IS ENCOUNTERED 
DURING A RETRY, A MESSAGE IS PRINTED 
REGARDLESS OF THE SETTING OF SW10. 


9. NON-RETRYABLE: IF ANY NON-RETRYABLE ERROR IS ENCOUNTERED, A 
MESSAGE IS PRINTED REGARDLESS OF THE SETTING OF 
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D. EXAMPLES: 
GLOSSARY: CURRENT BLOCK NUMBER 

CURRENT RECORD NUMBER 
RECORD SIZE, IN FRAMES 
WRITE STATUS ERROR 
READ STATUS ERROR 

SPACE ERROR 

TAPE MARK 

F = FORWARD 
R = REVERSE 

CS1 = RH/TU45 CONTROL REGISTER 
RH WORD COUNT 

RH BUS ADDRESS 

TU45 FRAME COUNT 
= RH CONTROLLER STATUS 
TU45 DRIVE STATUS 

TU45 ERROR REGISTER 
ATTENTION SUMMARY 

TU45 CHECK CHARACTER 

RH DATA BUFFER 

TU4S MAINTENENCE REGISTER 
TU4S DRIVE TYPE 

TU45 SERIAL NUMBER 

TU45 TEST CONTROL 

DATA FORMAT 

aha 

DENSIT 
*PATRN = DATA PATTERN NUMBER (R = RANDOM) 
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EXAMPLE 1: IN THIS EXAMPLE SLAVE 1 ON TMO3 0 WAS 
OPERATING AT 1600 BPI IN ODD PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
WRITE STATUS ERROR WAS DETECTED. THE BAD 
STATUS INDICATES THAT AN UNCORRECTABLE DATA 
ERROR (BIT 6 OF ER) AND A PE FORMAT ERROR 
(BIT 7 OF ER) OCCURED DURING THE WRITE 
OPERATION OF THE SIXTH (6) RECORD OF THE 
FIFTY (50) RECORDS IN BLOCK (2). THE 
SIZE OF THE RECORD WAS TWO HUNDRED (200) 
FRAMES. THE CHECK CHARACTER REFLECTS THE BAD TRACK. 


DRIVE NO. 0 *SLAVE NO. 1 *D 4 *P 0 *F 14 *PATRN 1 
*BN 2 *RN 6-50 *RS = 200 *WE 

CS1 144260 

CS2 100 

DS 150640 


wC 0 
CK 4 


EXAMPLE 2: IN THIS EXAMPLE SLAVE 3 ON TMO3 1 WAS 
OPERATING AT 800 BPI IN EVEN PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
READ STATUS ERROR WAS DETECTED DURING 
THE REVERSE READ OF THE TENTH (10) 
RECORD OF THE 25 RECORDS IN THIS BLOCK (12). 
THE SIZE OF THE RECORD IS TWENTY (20) FRAMES. 
THE PRINTOUT INDICATES THE DETECTION OF A 
VERTICAL PARITY ERROR (VPE: BIT 6 OF ER) AND A 
CYCLIC REDUNDENCY ERROR (CRC: BIT 15 OF ER). 
THE CRC CHARACTER, AS RECEIVED, IS NOT 
AS EXPECTED AND IS PRINTED SHOWING BOTH 
THE ACTUAL (FIRST) AND THE EXPECTED (LAST). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 3 
*BN 12 *RN 10-25 *RS 20 *RE R 

CS1 144276 

CS2 100 

DS 150600 

ER 100100 


wC 0 
CRC 767-777 
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EXAMPLE 3: IN THIS EXAMPLE, THE HEADER IS THE SAME AS 
IN EXAMPLE TWO (2) EXCEPT THAT THE ERROR TYPE 
REFLECTS A READ ERROR IN THE FORWARD 
DIRECTION. IT IS NORMAL FOR THE SYSTEM 
TO DETECT AN ERROR IN THE FORWARD AND 
REVERSE DIRECTION AT THE SAME RECORD. 
REMEMBER THAT IN REVERSE OPERATIONS THE 
RECORD NUMBER IS COUNTED DOWN SO THAT 
RECORD NUMBER TEN (10) WILL SHOWN IN 
HT daa POSITION IN BOTH FORWARD AND 


DRIVE NO. 2 *SLAVE NO. 5 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

ER 100100 


wC 0 
CRC 767-777 


EXAMPLE 4: IN EXAMPLES 2 AND 3 THE READ OPERATION 
RESULTED IN BAD STATUS, HOWEVER THE 
DATA ASSOCIATED WITH THE OPERATION WAS 
NOT BAD (OR WAS NOT CHECKED: SW 13=1). 
THIS EXAMPLE (4) SHOWS A PRINTOUT REFLECTING 
A READ STATUS ERROR ACCOMPANIED BY BAD 
DATA IN CHARACTERS FOUR (4) AND SIX (6). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

ER 100100 


67-777 
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EXAMPLE 5: THIS EXAMPLE SHOWS A READ DATA ERROR 
WHICH OCCURRED, WITHOUT AN ACCOMPANING 
STATUS ERROR, WHICH RESULTED IN A BAD RECORD. 


DRIVE NO. 3 *SLAVE NO. 1 *D 4 *P OF 14 *PATRN R 
*BN 100 *RN 66-200 *RS 2000 *DE F 


CN 0 
G 11111111 
on 


11111 
00000 


1111 
0000 


111 


B 
CN 
G 
B 
CN 
G 
B 
C 
G 
B 
C 
G 
B 
C 
G 
B 
C 
G 
B 
C 
G 
B 


00 
BAD RECORD 


EXAMPLE 6: THE FOLLOWING EXAMPLE SHOWS THE 
RESULT OF A SPACE OPERATION THAT 
SHOULD HAVE SPACED REVERSE OVER 
AN ENTIRE 100 RECORD BLOCK BUT 
WHICH TERMINATED AT THE END OF 40 
RECORDS. LEAVING A POSITION ERROR OF 40 


DRIVE NO. 2 *SLAVE NO. 6 *D 2 *P 0 *F 14 
*BN 3 *RN 100-100 *RS 1000 *SE R 
ERR AMT 40 
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EXAMPLE 7: THIS EXAMPLE REFLECTS AN ERROR DETECTED 
WHILE WRITING A TAPE MARK (TM) AT THE END 
OF THE CURRENT DATA BLOCK PER OPTION RESPONSE 
TM=1. NOTE THAT THE TM RECORD NUMBER 
IS ONE GREATER THAN THE TOTAL NUMBER OF DATA 
RECORDS IN THE CURRENT BLOCK. 


DRIVE NO. 1 *SLAVE NO. 1 *D 2 *P 0 *F 14 
*BN 67 *RN 101-100 *RS 36 *WE TM 

CS1 144226 

CS2 300 

DS 150604 

ER 1000 

we 0 


EXAMPLE 8: THIS EXAMPLE SHOWS TWO (2) PRINTOUTS 
REFLECTING A WRITE RETRY WHICH WAS NOT 
SUCCESSFUL THE FIRST TIME, BUT WHICH 
DID RECOVER ON THE SECOND. 

THE UNSUCCESSFUL RETRY IS LOGGED AS 
A SUSPECTED BAD TAPE SPOT BY ITS 
BLOCK AND RECORD NUMBER. 


DRIVE NO. 0 *SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 100 


we 0 
**tORIGINAL ERROR*** 


DRIVE NO. 0 SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 100 


wC 0 

SUSPECT BAD TAPE 
RETRY: 0 

REPT: 0 


RECOVERED 
RETRY: 1 
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EXAMPLE 9: IF , DURING A WRITE RETRY THE BACKSPACE 
OR THE ERASE OPERATION RESULT IN AN ERROR, 
THE ERROR WILL BE PRINTED AND THE PROGRAM 
HALTED. THIS EXAMPLE SHOWS THE ERROR PRINT 
FOR A SPACE AND AN ERASE (2 EXAMPLES) 


DRIVE NO. 1 *SLAVE NO. 1 *D 3 *#P 0 *F 14 
BN 12 *RN 8-64 *RS 500 *SE RTRY 
ERR AMT 1 : 


DRIVE NO. 1 *SLAVE NO. 1 *D 3 *P 0 *#F 14 
*BN 12 *RN 8-64 *RS 500 *ERASE 
CS1 144224 


CS2 100 
DS 150600 
ER 400 

we 0 


EXAMPLE 10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
A REWIND OPERATION WHICH DOES NOT HAVE 
BOT SET AT THE END. 


DRIVE NO. 2 *SLAVE NO. Z. *D 3 *P 0 *F 14 
*BN 66 *RN 15-20 *RS 1000 
NOT BOT ON REWIND: HALT 


EXAMPLE 11: THIS EXAMPLE SHOWS THE PRINTOUT MADE WHEN 
THERE IS NO INTERRUPT RETURNED AT THE END 
OF AN OPERATION. 


DRIVE NO. 7 *SLAVE NO. 7 *D 2 *P 1 *F 14 
*BN 1 *RN 25-26 *RS 1200 
NO INTERRUPT 
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STATISTICS PRINTOUT 


THE PROGRAM, THROUGH ITS ERROR CHECKING, IS ABLE TO GATHER CERTAIN 
STATISTICS ABOUT THE PERFORMANCE OF EACH UNIT UNDER TEST. 

THIS INFORMATION IS PRINTED OUT WHENEVER A UNIT IS REWOUND 

FROM END OF TAPE, OR BECAUSE IT IS TO BE REMOVED FROM TESTING 

DUE TO SOME CATASTROPHIC ERROR. (POSITION LOST, BAD TAPE OVERFLOW) 
THE STATISTICS MAY BE PRINTED AT ANY TIME BY SETTING 

SWITCH 14 TO A ONE (1). THIS PRESENTS A PICTURE OF PERFORMANCE 

UP TO THIS TIME. THE STATISTICS WILL BE CLEARED UPON REWIND OF THE 
UNIT; BUT NOT BY SETTING SW 14. 


STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 


DROPS: 03000 6 45 0 
>10000002 


1 
1 
2 
3 
2 
1 
0 
4 
1 
3 
: 0 


2 BAD TAPE SPOTS 
0 *BN 1 *RN 2 
1 *BN 15 *RN 100 


** NOTE ** DROPS AND PICKS REFLECT CORE BIT POSITIONS. 
THE FOLLOWING IS A TABLE OF CORE BITS TO TRACK NUMBER. 


TRACK NO. 76539182 
CORE BIT 76543210 


DATA BITS DROPPED: PER CORE BIT(SEE NOTE ABOVE) 
DATA BITS PICKED UP: PER CORE BIT(SEE NOTE ABOVE) 
WRITE RETRIES 

WRITE ERRORS NOT ASSOCIATED WITH BAD TAPE 

READ FORWARD STATUS ERRORS 

READ REVERSE STATUS ERRORS 

RECOVERED READ ERRORS 

UNRECOVERED READ ERRORS 

FORWARD DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 
REVERSE DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 


SEQ 0027 
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11. AUTO SEQUENCE 


THE AUTO SEQUENCE (START AT ADDRESS 240) WILL EXECUTE A 
PREDETERMINED TEST PLAN ON ALL AVAILABLE SLAVES ON EACH 
AVAILABLE TMO3. THE ONLY OPERATOR RESPONSE IS TO THE TYPED 
REQUESTS FOR THE RH ADDRESS, VECTOR, CONTINUOUS OR SINGLE 
CYCLE, AND NRZ ONLY. ALL SWITCHES REMAIN ACTIVE AND MAY BE 
USED NORMALLY; HOWEVER THE IDEA IS TO LEAVE ALL SWITCHES 
DOWN AND ALLOW FULL EXECUTION OF THE TEST PLAN FOR 

SYSTEM CHECKOUT. 


SAMPLE START AT 240(8): AUTO SEQUENCE. 
LOAD ADDRESS 240(8), SET SWITCHES TO ZERO, PRESS START: 


TU45 AUTO SEQUENCE TEST 
ENTER CONDITIONS IN OCTAL 


REGISTER START 


= 172400(172440) 
= 224(CR) 


AUTO CONT: (1) 


THIS EXAMPLE SHOWS AN AUTO SEQUENCE START WITH THE RH 
AT BUS ADDRESS 172440 AND A VECTOR OF 224. ALL AVAILABLE 
HARDWARE WILL BE TESTED CONTINUOUSLY IN BOTH NRZ AND PE MODE. 


AS EACH TMO3 AND ITS SLAVES ARE FOUND, A DIVIDER LINE OF 
ASTERICKS WILL BE PRINTED FOLLOWED BY A PRINTOUT OF THE 
TMO3 AND ITS SLAVES BEING TESTED. AS EACH TMOS AND 

ITS SLAVES ARE FINISHED, ANOTHER DIVIDER IS PRINTED 
BEFORE TESTING IS RESUMED ON THE NEXT AVAILABLE DRIVE. 


WHEN ALL AVAILABLE HARDWARE HAS BEEN TESTED, 

A PRINTOUT OF END OF SEQUENCE WILL BE DONE AND THE 
PROGRAM WILL EITHER HALT (AUTO CONT = 0) OR RESTART WITH 
THE FIRST AVAILABLE UNIT (AUTO CONT = 1). 
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CZTURA.P11 


13-JUN-7 


AUTO SEQUENCE TEST PLAN: 


THE AUTO SEQUENCE WILL EXECUTE BOTH AN NRZ AND A PE 
CYCLE. EACH CYCLE WILL BE STARTED FROM BOT AND CONSIST 
OF VARIOUS DATA PATTERNS INTENDED TO BE WORST CASE 

FOR THAT PARTICULAR MODE. 


1. WRZ CYCLE: 


SIX (6) BLOCKS OF ONE HUNDRED (100) RECORDS 
OF FOUR THOUSAND (4000) CHARACTERS FOR 
EACH OF THE FOUR DATA PATTERNS. 


PATTERN 1: ALL ONES DATA IN ALL BYTES 
PATTERN 10: WALKING ONE/ALL ONE 
PATTERN 14: WALKING ZERO/ALL ZERO 
R®NDOM DATA: RANDOM 


2. PE CYCLE: (IF NRZ ONLY = 0) 


SIX BLOCKS OF ONE HUNDRED (100) RECORDS 

OF FOUR THOUSAND (4000) CHARACTERS EACH FOR 
EACH OF THREE DATA PATTERNS, THEN RANDOM 
DATA BLOCKS TO END OF TAPE. 


PATTERN 10: WALKING ONE/ALL ONE 

PATTERN 14: WALKING ZERO/ALL ZERO 

PATTERN 15: THREE (3) 0 CHARACTERS, TWO (2) ALL CHARACTERS, THREE 0 CHARACTERS, 
THEN COMPLIMENT PATTERN. REPEATED FOR A FULL BUFFER 

RANDOM DATA: RANDOM 


SEQ 0029 
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12. TESTING PROCEDURES 


AS PREVIOUSLY STATED THIS PROGRAM CONTAINS NO 

FIXED TESTS. THE ENTIRE TEST CYCLE TO BE EXECUTED 

IS DESCRIBED BY THE OPERATOR THOUGH RESPONSES TO 

TELETYPE REQUESTS FOR PARAMETERS AND CONSOLE SWITCH 
SETTINGS FOR OPERATION. THE OPERATION SELECTED WILL 

BE EXECUTED WITH THE PARAMETERS ENTERED CONTINUOUSLY 

ON EACH AVAILABLE UNIT, ONE BLOCK AT A TIME, UNTIL 

STOPPED BY THE OPERATOR. THE OPERATION MAY BE CHANGED 
DYNAMICALLY BY CHANGING THE CONSOLE SWITCHES AT ANY 

TIME. THE PROGRAM WILL ATTEMPT TO PERFORM ANY OPERATION 
SET AND THEREFORE CAUTION SHOULD BE TAKEN TO ASSURE THAT 
THE UNIT IS CAPABLE OF PERFORMING AS REQUESTED. FOR 
INSTANCE, ONE SHOULD NOT ATTEMPT TO PERFORM READ OPERATIONS 
ON A TAPE WHICH HAS NOT BEEN WRITTEN AS THE DATA, IF ANY, 
IS UNPREDICTABLE. HOWEVER, IF A TAPE HAS BEEN WRITTEN WITH 
THIS PROGRAM, IT CAN BE READ AS OFTEN AS DESIRED WITHOUT 
BEING REWRITTEN. THIS IS A GOOD PROCEDURE TO USE FOR 
TESTING TAPE COMPATABILITY. SCOPING OF TAPE UNITS BECOMES 
SIMPLE; BY SETTING THE DESIRED OPERATION AND ITS PARAMETER, 
A UNIT MAY BE CONTINUOUSLY EXERCISED IN ANY MANNER DESIRED. 
BY USING THE VARIOUS ERROR CONTROL SWITCHES AND ENTERING 
THE NEEDED STALL, ANY FUNCTION CAN BE SCOPED RATHER 

EASILY. RELIABILITY TESTING CAN BE PREFORMED BY USE 

OF THE RANDOMIZATION CAPABILITY. PERHAPS A CYCLE OF 

RANDOM TESTING MIGHT BE SET UP AND ALLOWED TO RUN 

FOR SOME PERIOD OF TIME, THE STATISTICAL COLLECTION 

OF DROPS AND PICKS IS THEN SIGNIFICANT. INTERMITTANT 
PROBLEMS CAN BE FOUND BY SETTING THE DESIRED OPERATION 

IN MOTION AND DISALLOWING ERROR PRINTOUTS WHILE ALLOWING 

A HALT ON ERROR. THE ERROR THAT CAUSED THE HALT CAN 

BE PRINTED BY RESETTING CONSOLE SWITCH TEN AND PRESSING 
CONTINUE. IF SOME PARTICULAR DATA PATTERN SHOULD BE 
CAUSING DATA ERROR, USE OF THE YOZZLE SWITCH AND ITS 
ASSOCIATED STALL WILL TO ALLOW SCOPING OF THIS 

PARTICULAR RECORD. 


AS YOU SEE, THERE ARE MYRIAD TESTING PROCEDURES WHICH 
COULD BE PERFORMED. THE PARAMETERS, TAPE OPERATIONS, ERROR 
EXAMINATION AND REPORTING ARE ALL AT YOUR DISCRETION. 


TRY IT, YOU'LL LIKE IT. 


-LIST BIN,LOC,S 

- TITLE TROS/TUGS. DATA RELIABILITY PROGRAM 

:++B CZTURAO 

21 FEB 1977 

:R. BARNES 

sREVISED (++B) J.G.ADAMS MAY 1977 1) INCORRECT RECORD COUNT 

;++B STORED WHEN EOT REACHED ON WRITE 
2)ADJUST STACK PTR ON BAD TAPE OVFLW 


dant nd ad ed ed ene 
“VAWUES WN — © 
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zIF SWR 


~-MCALL 
»NLIST 


~LIST 


2 
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” ih matt tame einnendnamaaamnaie 
ME 


~ENABLE ABS,AMA 
SCONSOLE SWITCHESteeteeereree 


7SW15: 
4: 1=PRINT READ/WRITE STATS 


:SW1 


‘ $W13: 
‘ Sut2: 
!$W11: 
ones 


; O=WRITE 
<15::00> = 177777 OR NOT AVAILABLE USE SOFTWARE SWITCH REGISTER 


1=STOP ON ERROR 
O=CONTINUE ON ERROR 


0=D0 NOT PRINT STATS 

1=D0 NOT CHECK DATA 

O=CHECK DATA 

1=D0 NOT CHECK WRITE ERRORS 
O=CHECK WRITE ERRORS 

1=D0 NOT CHECK READ ERRORS 
O=CHECK READ ERRORS 

1=D0 NOT PRINT ERRORS 
O=PRINT ERRORS 

1=REWIND TAPE 

0=D0 NOT REWIND 

1=USE RANDOM DATA 

O=USE FIXED DATA PATTERN 
1=USE RANDOM CHARACTER COUNT 
O=USE FIXED CHAR COUNT 
T=USE RANDOM RECORD COUNT 
O=USE FIXED RECORD COUNT 
1=YOZZLE ON CURRENT RECORD 
0=D0 NOT YOZZLE 

1=00 BOTH READ AND WRITE RETRIES 
O=INHIBIT RETRIES 

1=D0 NOT READ FORWARD 
O=READ FORWARD 

1=D0 NOT READ REVERSE 
O=READ REVERSE 

T=READ FORWARD FIRST 

O=READ REVERSE FIRST 

1=D0 NOT WRITE 


SEQ 0031 
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7TU4S REGISTER BITSeeeeeeeeer 


313 5 313 512 311 310 ;09 ;08 507 ;06 :05 ;04 ;03 ;02 ;01 ;00 ; 
#9900130 90300009000000030003000000005 00000 
:SC i TRE; SACP; SPR; DNA; PSL; Al?; sA16; RDY; IE + FUN; FUN; FUN; FUN; FUN; GO ; 


#0 x000¢300013000300030000000000100013000300030000000 0010003000 


; COUNT j 
2OO000000000000000000000000OOOOOOOOOOOOOOOOOOOUO ONL 


; BU 3 


; ADDRESS : 
‘7 Weenewrecreeeeieneerannencremerer 


; COUNT F 
DODO O00000000000000000000000000000000OOOOODOOUOOUOOUOOOOUOOUOOL 
:DLT; sWCE; SUPE; sNED; NER: PGE; sMXF ; SMP; :OR zIR :CLR; PAT; sBAI; :U2 :Ut ;U0 : 


30030000000 000000 0D ATO KAITOS IIIT 
sATA; sERR; sPIP; MOL ; sWRL; sEOT; SPR; DPR; DRY; ‘SSC; ‘PES; SON; 108; EOF ; ‘BOT; sSLA; 


0030000 00000000 000000000000 T QO OO ITI TIOIGOIITIOOG 
; CDE;UNS;OPI:DTE:NEF:CS_;FCE;NSG;PEF; Fz INC: DAT: FMT: sCNT: :RMR; ILR; ILF ; 
sLRC . 
+i euenamemnnemyemepeae nyse 
"> SUMMARY ; 


+1 maprer: greener ecremnmeencnenpmerenmamint 
: CHARACTER : 
#0000000 9000000 OHHH HAHAHAHAHAHA 


; BUFFER 3 
DOOD UODOUO000 00000000000 0000000000000000000OOOOOOOOOOOOOOOOOOOOOOL 
+e +08 :08 :08 208 :DB 2D 30B ;DB ;WRT; :0P :0P OP ;0P ; 3 
3; 0; P SCLK;CLK:; 4; 3; 2; 1:60; 

TTTTSTTTTTTITATTLITTETETTTTTRTTTTTERTRTTTRET PTE TOTTTTE TTT TT TIT, 
Py ° ° ° L Py e 
; TYPE sCH ; sPR 

1. [ra enmeeeememeene 
° L a 
; NUMBER 

TOO 00000000 0000000 00000 00000 QQ0Q QIU IQQIQIIIIIIIIIK 
sACL; FCS; TCW; ENA; SPR; DEN; DEN; DEN; FAT; FAT; SFMT; FMT; sEVN: SSN; SSN; SSN; 


s0T 3 4; 4; 1 
700030000 00000000 0000000000000 0000000000000 00000 0GONGIUIGIOK 
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000020 
000022 


000034 
000036 


000046 
000052 


000060 
000062 


000176 


000200 


000204 


000210 
000214 


13-JUN-7 


000000 


000240 


000020 
023646 
000340 


000004 
000034 
024020 
000340 
104400 


000040 
000046 
005022 
000052 
000000 
000040 


000060 
021504 
000340 


000176 
000000 


000200 
000137 


000204 
000137 


000210 


005037 
000137 


000224 


L 
8 


PROGRAM 
10:30 


003026 
003152 


015030 
003160 
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GREGISTER EQUIVStteterterere 


NOP=240 

STRAP CATCHERStteeteeeees 

.=20 

“WORD TTOUT :SET IOT TRAP TO TTOUT ROUTINE 
.WORD 340 :PRIORITY LEVEL 7 

TYPE=10T ;EQUATE TYPE TO AN IOT INSTRUCTION 
; OcTP ;SET TRAP TRAP TO OCTP ROUTINE 
-WORD 340 

TYPOCT=TRAP ;EQUATE TYPOCT TO TRAP INSTRUCTION 


3ACT11 HOOK eteeeeneeee 
SSVPC=. ;SAVE CURRENT LOCATION CTR 


-=46 
— SENDAD SET LOCATION 46 


"worD «(0 :SET LOCATION 52 = 0 
" =$SVPC RESTORE LOCATION CTR 


oth INTERRUPT VECTOReteeeeeter 


-WORD = TTINT :TTY INTERRUPT HANDLER ADDRESS 
-WORD 340 PRIORITY LEVEL 7 


sSOFTWARE SWITCH REGISTEReteeeeere 

_ IF SWR <15::00> = 177777 OR NOT AVAILABLE 
“WORD 0 

>START ADDRESSteteeeener 

-=200 


START ENTER PARAMETERS VIA TTY 
STARTC USE FIXED PARAMETERS; HOLD DATA 


RDFL 
STARTA ;USE FIXED PARAMETERS; NEW DATA 
7MAG TAPE INTERRUPT VECTOReteeeeecee 


-=224 


SEQ 0033 
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000224 021734 MTINT MAG TAPE INTERRUPT HANDLER ADDRESS 
000226 000340 340 


;AUTO SEQUENCE START teeteerere 


000240 -=240 
000240 005237 000736 INC ASEQF SET AUTO SEQUENCE FLAG 
1468 000244 000137 003136 JMP STAUT :GO TO START OF AUTO SEQUENCE 
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Ue 24 ;SHORT CONVERSATION RESTARTeteeeeee 
4 
1471 000300 -=300 
1472 000300 005237 014070 INC SCVFL ;SET SHORT CONVERSATION FLAG 
egy 000304 000137 003026 JMP START sENTER SHORT PARAMETER LIST 
1475 000510 .=510 
saat 3TU4S REGISTER EQUIVSeteteteeer 
1478 000510 172440 C1: 172440 
1479 000512 172442 wC: 172442 
1480 000514 172444 BA 172444 
1481 000516 172446 FC 172446 
1482 000520 172450 cs 172450 
1483 172452 DS 172452 
1484 000524 172454 ER 172454 
1485 000526 172456 AS 172456 
1486 172460 cc 172460 
1487 000532 172462 DB 172462 
1488 000534 172464 MR 172464 
1489 000536 172466 DT 172466 
1490 000540 172470 SN: 172470 
eee 000542 172472 TC: 172472 
eh SCONSTANTStteeeeeeee 
1495 000544 172440 REGS: 172440 sSTARTING REGISTER ADDRESS (CS1) 
1496 000546 000224 VECT: 224 ;VECTOR ADORESS (RH INTERRUPT) 
1497 000550 000000 DVN: 0 sORIVE NUMBER 
1498 000552 000000 UDES: 0 sUNIT DESCRIPTION (PARITY,DENSITY, UNIT, FORMAT) 
1499 000554 000200 RCNT: 200 sRECORD COUNTER 
1500 000556 174000 FMCNT: 174000 sNUMBER OF CHAR (4 = 4000) OCTAL IN TWOS COMPLEMENT 
1501 000560 000001 PATRN: 1 ;DATA PATTERN SELECTOR (0 - 15) OCTAL 
1502 000562 000002 RDCMD: 2 ;READ COMMAND 
1503 000564 000001 TMEX 1 ; TAPE MARK FLAG: 1=TM O=NO TM 
1504 000566 000000 cRCC 0 sCRC CORRECTION FLAG (YES=1,NO0=0) 
1505 000570 000000 INTRF 0 ; INTERCHANGE READ 1=YES 0=NO 
1 000572 000000 SPFLG: 0 sSINGLE PASS 1=YES O=NO 
1507 000574 000010 RSTAL 10 ;READ STALL 
1 000576 000010 WSTAL: 10 sWRITE STALL 
1509 000600 000010 TSTAL: 10 3; TURN AROUND STAL 
1510 000602 002000 YSTAL: 2000 :YOZZLE STAL 
1511 000604 000010 RETRY 10 ;READ RETRY NUMBER 
1512 000606 177776 PSW: 177776 ;PROCESSOR STATUS 
1513 000610 177570 SWR 177570 sCONSOLE SWITCHES 
1514 000612 177560 TKS: 177560 sTTY READ aeeeee REGISTER 
1515 000614 177562 TKB: 177562 TTY READ BUFFER 
1516 000616 177564 TPS: 177564 TTY PUNCH STATUS REGISTER 
1517 000620 177566 TPB: 177566 ;TTY PUNCH OUTPUT REGISTER 
1518 000622 177550 PRS: 177550 sH/S READER STATUS REGISTER 
1519 000624 177552 PRB: 177552 3H/S READER BUFFER 
1520 000626 153624 RANBAS: 153624 ;RANDOM NUMBER ee BASE 
1521 000630 032561 RANSAV: 032561 ;RANDOM NUMBER BUFFER 
1522 000632 000200 RCSAV: 200 RECORD COUNT SAVE 
1523 000634 174000 FCSAV: 174000 : FRAME COUNT SAVE 


i | 
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sFLAGS AND COUNTERSttteeereee 
sTTY ENTRY FLAG 


TTY OUTPUT BUFFER 
:TTY INPUT BUFFER 
: TEMP STORAGE 
TEMP STORAGE 

; TEMP STORAGE 

sNRZ ONLY FLAG 

ERROR MSG ADDRESS STORAGE 
BLOCK COUNTER 

BAD RECORD COUNTER 
sEOT FLAG 

: INTERRUUPT RETURN STORAGE 
;HEADER FLAG 

DELAY STORAGE 

PRINT FLAG 

MAG TAPE CONT REGISTER BUFFER 
UNIT TABLE POINTER 

; TAPE MARK FLAG 
REPEAT COUNTER 
sRETRY COUNTER 

DATA ERROR FLAG 
STATUS ERRUR FLAG 
:BI1T COUNTER 

RETRY FLAG 

sUNIT POINTER SAVE 
:BITS DROPPED POINTER 
BITS PICKED POINTER 
ERROR SAVE LOC 

;BAD TAPE FLAG 
STATISTIC PRINT FLAG 
BAD TAPE POINTER 
sERASE FLAG 


sAUTO SEQ FLAG 

;UTO SEQ DRIVE NUMBER 
;AUTO BLOCK COUNTER 

AUTO SEQ CONTINUOUS FLAG 


000000 
000000 


000000 


000000 
000000 
000000 
000001 ASEQCE : 


0 
0 
0 
0 
0 
0 
0 
: @ 
: 0 
0 
: © 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: @ 
1 
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UNIT ORDER AND DESCRIPTION TABLE tttteeeeee 


:THIS TABLE IS LOADED 
;WITH UNIT NUMBERS AND 
; THEIR DESCRIPTIONS IN 
; THE ORDER THAT THEY 
WILL BE TESTED 


000000 


'ooooo°ooo°o 


000766 
sUNIT DROPS AND PICKS POINTERS*teeeeeee 
000770 


001570 
SUNIT BAD TAPE POINTERSteeeeeecee 
001610 BTADDR: Hh 


SUNIT WRITE RETRY COUNTERetteeeeee 
;SET START OF STATISTICS TABLE 
STTBL: 


00000 
000000 
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CZ 13-JUN-7 SEQ 0038 

re} UNIT WRITE ERRORStteteeeere 

1623 001070 000000 WTER1: 0 

1624 001072 000000 WTER2: 0 

1625 001074 000000 WTER3: 0 

1626 001076 000000 WTER4: 0 

1627 001100 000000 WTERS: 0 

1628 001102 000000 WTER6: 0 

1629 001104 000000 WTER7: 0 

1ea0 001106 000000 WTER8: 0 

1ese sUNIT READ FORWARD ERRORSttteeetere 
1634 001110 000000 RDER1: 0 

1635 001112 000000 RDER2: 0 

636 001114 000000 RDERS: 0 

1637 001116 000000 RDER4: 0 

1638 001120 000000 RDERS: 0 

1639 001122 000000 RDER6: 0 

1640 001124 000000 RDER7: 0 

see! 001126 000000 RDER8: 0 

oar UNIT DATA ERRORS FORWARD ttetereere 


1645 001130 000000 DATER1: 


0 
0 
: 
1649 001140 000000 : 
0 
0 


1652 001146 000000 


1653 

os UNIT READ REVERSE ERRORSttteeeeene 
1656 001150 000000 RDERR1: 

1657 001152 000000 


0 

0 

0 

000000 0 

1660 001160 000000 . 
0 

0 


1665 UNIT DATA ERRORS REVERSEteeeeeeees 
1667 001170 000000 DEREV1: 


0 

0 

0 

000000 0 

1671 001200 000000 0 
000000 : 

0 
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001210 
001230 
001250 
001270 
001310 
001330 
001350 
001370 
001410 
001430 
001450 
001470 
001510 
001530 
001550 
001570 


000000 


001610 


10:30 
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sDROPS + PICKS PER CHANNEL PER UN] Tettnteeeee 


SEQ 0039 





| ed 
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UNIT BAD TAPE COUNTER:16 PER SLAVEttereenene 
001610 000000 
001714 ; 
002020 
002124 
002230 
002334 
002440 
002544 


-+102 
-+102 
-+102 
-+102 
=.+102 
=.+102 
=.+102 
002650 "15.4102 
;UNIT END OF TAPE COUNTERS 1 PER SLAVE*t*#ee2% 


— — oe ss ss ss SS SS Ls 
SN NS NN NSN NS NSN SS 
DORI IRD RD et et ot ot ot ot 2 
WMO DONAUS WI 


002650 000000 


0 
0 
0 
0 
0 
0 
0 
0 


002666 000000 
;UNIT READ FORWARD SOFT ERRORettteee 
002670 000000 RFSOFT: 


ooooo°c;[e°o 


000000 
UNIT READ REVERSE SOFT ERRORttteeee 
000000 RRSOFT: 


ooooo°c;Keoeo 


002726 000000 
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UNIT READ FORWARD HARD ERROR*tteeeee 
002730 seneee RFHARD: 


0 
0 
0 
0 
0 
0 
0 
0 


002746 000000 
sUNIT READ REVERSE HARD ERROR*teteee 
002750 000000 RRHARD: 


0 
0 
0 
0 
0 
0 
0 
0 


002766 000000 


;SET END OF STATISTICS TABLE 
002770 NDTBL: 


sDATA PATTERN GENERATORStttreeeeeeee 


002770. 002770 et sENTRY TABLE 
: sEXTERNAL INPUT FROM H/S READER(SEE CZTUTAO) 

:ALL ONES 

sALL ZEROS 

WALKING ONE 

WALKING ZERO 

ALTERNATING ONE/ZERO 

ALTERNATING ZERO/ONE 

ALTERNATING ONE/ZERO IN ALTERNATING CHARACTERS 

WALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 

sALL BITS 0-377 

sALL BITS 377-0 

ALTERNATING CHARACTERS 0 AND 377 

: sWALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 

003024 014716 DATA15: AUTO SEQUENCE PATTERN 0,0,-1,-1,-1,0,0 
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003026 
003032 
003036 
003040 


003042 


003132 


003136 
003144 
003150 


003152 
003156 


003160 
003164 
003170 
003174 
003176 
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012706 
005037 
005027 
000000 


022737 


000137 
122737 


000137 


012737 
005037 
000405 


005037 
000432 


005037 


005301 


000500 
000736 


005022 
000042 
000176 
100000 
003040 
003126 
000006 
027251 


000736 
022004 


000001 
015030 


000636 


000636 
000640 
000076 


000042 


000610 


175512 


000041 


000636 
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EVEN 


FRR AEE A EAE AEE AEE AREER ERAEREKAKEAEEE 


;PROGRAM START AND SEQUENCE FORMATTER: 


; THIS ROUTINE IS USED TO PERFORM ALL HOUSEKEEPING, 
sDECIDE WHICH TRANSPORT TO TEST AND ITS AVAILABILITY, 
;LOAD THE WRITE BUFFER WITH THE SELECTED DATA PATTERN, 
;GENERATE ANY RANDOM NUMBER AND THEN EXECUTE 

;THE TEST CYCLE REQUESTED BY THE SWITCH SETTING. 

;AT THE END OF THE TEST CYCLE THE NEXT UNIT IS SELECTED 
sAND CHECKED FOR AVAILABILITY AND THE TEST CYCLE IS 


sEXECUTED ON IT. 


THE READ WRITE STATS MAY BE PRINTED AT THE END OF 
EACH TEST CYCLE VIA CONSOLE SWITCH FOURTEEN (14). 


FERRARA ERATE RARE AERA EREREKAAEKEEEKEKEEEEEE 


START — & 3OOeeeereeere 
START: #500,SP 
ASEQF 
CL (PC)+ 
CHNFLG: 0 


#SENDAD ,a#42 
50$ 


a#42 

52$ 

51$ 
#SWREG, SWR 
#100000 ,aSwR 
CHNFLG 

3$ 


#6,a#41 
STAUT 
#MSG120,R4 
STAUT 


3$: ASEQF 
ASEQO 


SSTART 240 eeeeeeeeee 
STAUT: MOV #1,TINF 
CLR RDFL 
BR STARTB 


SSTART 204eeteeeeeee 
STARTC: CLR TINF 
BR STARTD 


SSTART 210eeeeeerere 
STARTA: CLR —TINF 
STARTB: #STFLG,RO 


#ENDFLG-STFLG,R1 


1$: (RO)+ 
EC R1 


SET STACK PTR 
;CLEAR AUTO SEQUENCE FLAG 
::CLEAR CHAIN INDICATOR 
ss MODE INDICATOR 
1/0 = CHAIN/NOT CHAIN MODE 
::BRANCH IF LOADED VIA ACT11 CHAIN MODE 


:;BRANCH IF IN DUMP MODE 

2: INVOKE SOFTWARE SWR 

:;WITH HALT ON ERROR SET 

:;SET CHNFLG = CHAIN MODE 

::GO TO CHAIN ADDRESS 

BRANCH IF LOADED VIA TMDP 

;ADVISE USER TO REMOVE TMDP FROM SLAVE 


SET AUTO SEQUENCE FLAG 
:GO TO AUTO SEQUENCER 


SET TTY ENTRY FLAG 
;CLEAR RANDOM DATA FLAG 


;CLEAR TTY INPUT FLAG 


:CLEAR TTY ENTRY FLAG 
GET STARTING ADDRESS OF FLAGS 


;CLEAR FLAGS AND COUNTERS 


SEQ 0042 





ao, 
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003524 
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001375 


032777 
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000500 


001720 


177777 


000176 
003310 


000006 
177777 


000176 
000006 
000004 
000500 
012220 
000040 
177777 


100000 
000002 


005054 
005054 


177777 
000746 


000656 
000736 


000656 


00065é 
000676 


000676 


000746 
000200 


012134 


000400 


014276 
000656 


000610 
000004 
175304 


000610 


175152 
000746 
000746 


175176 
000746 
000552 


000742 


000552 
175072 


175056 


MACY11 30(1046) 


2s: 


STARTE: 
STARTD: 


STAUTO: 
1$: 


2s: 


START1: 
STARIA: 


STAR1B: 


STARIC: 


START2: 
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1$ 
#500,SP 
PC ,RANSET 
#STTBL RO 


#ENDTBL-STTBL,R1 
RO)+ 


#1,BLCNTR 

a#4 ,-(SP) 

a#6 ,-(SP) 

#SWREG, SUR 
2$ 


#1$,a84 

a#6 

#177777 ,aSwWR 
2$ 


3$ 
(SP)+,(SP)+ 
#SWREG, SWR 
(SP)+,a#6 
(SP)+,a#4 
#500,SP 

PC, TINP 
#40,aCS 


RO 

#-1,UN1(RO) 

2$ 
#100000 ,UN1 (RO) 
#2,R0 


1$ 

~, adie 
R3,REOTC 
#100,aTKS 
UNP,RO 
STAR1B 
UN1(RO) ,UDES 
STARTS 


RO 

UN1(RO) ,UDES 
#200, aSuR 
START2 
PC,CCNTR 
#400, aSuR 


SEQ 0043 


SET STACK POINTER 


:GO RESET RANDOM BASE 

;GET STARTING ADDRESS OF STAT TABLE 
;AND # OF BYTES IN TABLE 

;CLEAR STATISTIC COUNTERS 


PRESET PATTERN 
PRESET BLOCK COUNTER 
SAVE ERROR TRAP VECTOR 


BRANCH IF SOFTWARE SWR 
sALREADY SELECTED 
;SET TIMEOUT TRAP TO 1$ BELOW 


BRANCH IF SWR = 
:1F NOT AVAIL (1$) OTHERWISE 
:GO0 TO 3$ 

RESET STACK 

SET SWR = SOFTWARE SWR 
RESTORE ERROR TRAP 


177777 TRAP 


:GO GET PARAMETERS FROM TTY 
: INITIALIZE 

POINT TO FIRST ENTRY 
BRANCH IF LAST ENTRY 


CLEAR EOT FLAG 
;POINT TO NEXT UNIT ENTRY 
CONTINUE CLEARING 


RESTORE EOT CNTR 

;SET KEYBOARD IE BIT 

RO = UNIT TABLE POINTER 
BRANCH IF LAST ENTRY 


LOAD NEXT UNIT DESCRIPTION 


BUMP BLOCK COUNTER 
7 SEE Mu _AuTO SEQ 
:1F NOT: BR 
SEE. it “DONE SEQ 

F NOT: BR 


TRESET BLOCK CNTR 
sRESET UNIT POINTER 


;RETURN TO AUTO SEQ 


LOAD FIRST UNIT DESCRIPTION 


ata Le — RECORD SIZE 
GO GENERATE spot RECORD SIZE 
SEE IF RANDOM DATA 
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CZTURA.P11 
003532 


004040 


001402 


012704 


014766 
000100 


012174 
000746 


004264 
000550 
000552 
174714 
000670 


022602 
025750 


014116 


040000 
000001 


026162 


000676 
001050 


026333 


000676 
001070 


026322 


000676 
001110 


027126 


000676 
002670 


027137 


175042 


174724 
174740 


000670 


000670 
174676 


MACY11 30(1046) 


STARTS: 


STARTS: 


STAR4O: 


STARSA: 
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STARTS 


TSTAL, STAL 
PC, STALL 
PC,RSEQ 
TSTAL,STAL 


#MSG65,R4 
UNP, R4 
RTY1(R4),R3 
#MSG73,R4 


UNP ,R4 
WTER1(R4) ,R3 
#MSG72,R4 

UNP ,R4 
RDER1(R4) RS 
#MSG113,R4 
UNP ,R4 
RFSOFT(R4) ,R3 
#MSG114,R4 


SEQ 0044 


:1F NOT: BR 

:GO GENERATE RANDOM DATA 

SEE IF RANDOM RECORD COUNT 

:1F NOT: BR 

:GO GENERATE ye RECORD COUNT 
7 SEE ar — EOT 


: IF : 

sELSE GO TO NEXT UNIT 
7SET DRIVE NUMBER 
:SET UNIT NUMBER 

;SEE IF UNIT AVAIL 
IF SO: BR 


AWAIT TUR 
PRINT HEADER 


TYPE MSG 

: STOP 

sRETRY 

360 SET UP WRITE DATA 


ZINIT SLAVE 


REWIND 
:WRITE 
SET TURN AROUND DELAY 
; DELAY 


:GO TO READ SEQUENCER 
ae ae TURN AROUND DELAY 


ELAY 
+t IF — PRINT STATISTICS 
NOT 


;SET RECORD COUNTER TO 1 
PRINT CYCLE NUMBER 
:GO PRINT STATS 


;PRINT DROPS AND PICKS 
TYPE MSG 


PRINT RETRIES 
; TYPE MSG 


PRINT WRITE ERRORS 
TYPE MSG 


PRINT READ FORWARD ERRORS 
: TYPE MSG 


;PRINT FORWARD SOFT ERRORS 
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CZTURA.P11 
004044 


13-JUN-7 
000004 


000137 


012737 


000207 


8 10:30 


000676 
002730 


026413 


000676 
001130 


026216 


000676 
001150 


027126 


000676 
002710 


027137 


000676 
002750 


026402 
000676 
001170 


000730 


000015 
174262 
000670 
338 


000002 
003406é 


153624 


000634 


000676 


000626 


000556 
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MACY11 30(1046) 22-JUN-78 09:14 PAGE 45 


STPX: 


STARTS: 


START6: 


START?7: 
START8: 


RANSET: 


UNP ,R4 
RFHARD(R4) ,R3 
#MSG77,R4 

UNP ,R4 
DATER1(R4) ,R3 
#ASG68,R4 

UNP ,R4 
RDERR1(R4) ,R3 
#MSG113,R4 
UNP ,R4 
RRSOFT(R4) ,R3 
#MSG114,R4 
UNP ,R4 
RRHARD(R4) ,R3 
#MSG76,R4 


UNP ,R4 
DEREV1(R4) ,R3 


PC 

BISTF 
PC,.BIPRT 
BISTF 
aSwR,RO 
#177762,R0 
#15,R0 
STARTS 
ads 
START? 
STAL 
START6 
PC,PAPRT 
#ASG49,R4 


#2,UNP 
START1 


SEQ 0045 
: TYPE MSG 


PRINT HARD FORWARE ERRORS 
TYPE MSG 


PRINT DATA ERROR FORWARD NUMBER 
TYPE MSG 


PRINT REVESE ERROR NUMBER 
TYPE MSG 


PRINT REVERSE SOFT ERROR 
TYPE MSG 


TYPE MSG 


PRINT DATA REVERSE ERRO® NUMBER 
; RETURN 


;SET STAT ONLY PRINT 
;PRINT BAD TAPE STATS 
;CLEAR FLAG 

;LOAD SWR 

sMASK READ/WRITE SWITCHES 
7SEE IF HAVE READ OR WRITE 
:1F NOT: BR 

7SEE IF WAVE UNIT READY 
; : BR 

;DELAY FOR TUR 

;PRINT HEADER 


: TYPE MSG 
; STOP 


:$T0 
POINT TO NEXT UNIT 
; CONTINUE 


BASE RESETeeeererece 


#153624 ,RANBAS 
#32561, RANSAV 
RCSAV,RCNT 
 eeaimmane 


;RESET BASE 

RESET BUFFER 
sRESET RECORD COUNT 
RESET FRAME COUNT 
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CZTURA.P11 


004330 


13-JUN- 


013777 


052760 


000552 
000011 
174152 


000007 
000726 


000662 
100000 
000662 
022602 
000002 
027017 
000001 


026645 


024650 
000676 
002650 
002650 
026672 


000726 


174004 
000670 
024507 


022602 
026124 


005054 


000676 
100000 


174204 
174144 


174130 


000726 


000726 


000654 


000746 


MACY11 30(1046) 
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SEQ 0046 


RRR A ERR AERA EAE EAA AAAAARRARARATEAREEEREEE 


;REWIND FROM EOT: 


;WHEN ANY TRANSPORT BEING TESTED REACHES END OF TAPE 
;DURING A READ OR WRITE OPERATION, IT WILL BE REWOUND 

sAND FLAGGED AS UNAVAILABLE UNTIL ALL AVAILABLE UNITS 

HAVE REACHED EOT AT WHICH TIME ALL TESTING WILL BE RESUMED 


:AT A_ BLOCK COUNT OF ONE (1). 


A MESSAGE WILL 


BE 
:PRINTED ON THE SUPERVISORS CONSOLE AS EACH UNIT REACHES 
:EOT AND IS REWOUND. 


FRASER AAA EAA AAA EEE AERA TEAR RARAAEREAEEKEAREKEEE 


REOTIA: 


REOT1B: 


REOTIF: 
REOTIC: 


REOTIE: 


H 
REOT2A: 
B 


UDES ,aTC 
#11,aC1 
ads 
1$ 

#7,aC1 
BIFLG 
REOTIA 
EQTREC,RO 
#100000 ,RO 


#ASG106.R4 


REOTIE 
#MSG20,R4 


UNP ,R4 
EOTCO(R4) 
EQTCO(R4) ,R3 


#ASG16A,R4 


REOT2 
#MSG6,EMADOR 
PC,PAPRT 
#ASG60,R4 


UNP RO 
#100000 .UN1 (RO) 


;LOAD TAPE CONTROL REGISTER 
DRIVE CLEAR 
WAIT FOR DRY 


START REWIND 
‘tT ob: ~y TAPE OVERFLOW REWIND 


SET RECORD NUMBER OF E 

CLEAR EOT INDICATOR & REC COUNT 
PRINT HEADER 

sSEE IF Be ee ERROR 


:1F NOT: B 

:SET POSITION ERROR MSG 
:SEE IF _BAD TAPE OVERFLOW 
:1F NOT: BR 

7 SET BAD TAPE OVERFLOW MSG 
TYPE MSG 


4 EOT MSG 
YPE MSG 


;BUMP CNTR 
PRINT EOT CNTR 
: TYPE MSG 
: CLEAR or TAPE FLAG 
PRINT STATS 

PRINT BAD TAPE STATS 
;BRANCH IF DRY SET 
WAIT DRY 

PRINT HEADER 

: TYPE MSG 


SEE IF LAST UNIT TO REACH EOT 
IF SO: BR 


SET EOT FLAG 
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TMOS/TU4S DATA RELIABILITY PROGRAM 
CZTURA.P11 78 10:30 


2109 
21 


004570 


13-JUN- 
005726 


004264 
005054 


020000 
000002 
000001 


022602 
025715 


000676 


177777 
000676 


000636 
000736 


004276 
177777 
015030 
000572 
026525 


000042 


003040 
022004 
003236 


000552 
173700 
173652 


173642 


000746 
000676 


000746 


014276 


MACY11 30(1046) 


REOTS: 


REOT4: 


REOTS: 


REOT6: 


REOT?7: 


REOTX: 


TEND: 


SENDAD: 


HERE: 


18: 


REOTXX: 


REOTC: 


I 4 
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SEQ 0047 

(SP)+ RESET STACK POINTER 
START? :GO TO NEXT UNIT 
REOTC 
REOTC,RO 
REOTC 
a RESTORE EOT UNIT COUNTER 
UNP ,RO :POINT TO FIRST UNIT 
UN1(RO) ,UDES ;LOAD UNIT DESCRIPTION 
UDES ,aTC ;LOAD COMMAND REGISTER 
#20000,a0S 
REOTS AWAIT PIP RESET 
#2,aDS SEE IF HAVE BOT 
REOT6 :IF SO: BR 
#1,R0 
PC, PAPRT PRINT HEADER 
#ASG48,R4 

TYPE MSG 


UNP ,RO 
a CLEAR EOT FLAG 


UNP ,RO :POINT TO NEXT UNIT 
#-1,UN1(RO) BRANCH IF NOT LAST UNIT 
REOT4 
UNP CLEAR UNIT POINTER 
TINF sCLEAR TTY INPUT FLAG 
ASEQF ;SEE IF AUTO SEQ 
REOTX IF NOT: BR 
(SP)+ RESET STACK POINTER 
PC RETURN TO AUTO SEQ 
PC ,RANSET 7GO RESET RANDOM BASE 
#-1,PATS PRESET PATTERN 
RDFL ZCLEAR RANDOM FLAG 
SPFLG SEE IF SINGLE PASS 
REOTXX :1F NOT: BR 
#4SG100,R4 

TYPE MSG 
a#42,R0 GET ACT11 RETURN ADDRESS 
HERE BRANCH IF NOT ACT11 
PC, (RO) 
tala BRANCH IF NOT CHAIN MODE 
ASEQO RETURN TO AUTO SEQUENCER 
STARTE RESTART AT BLOCK NUMBER ONE 


:EOT UNIT COUNTER 


oOo, 


J 4 
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FRR AERA AREA AERA ARTE AEE REAR E AAA EREEEEE 


REWIND ALL AVAIL TAPES: 


THIS ROUTINE; ENTERED VIA CONSOLE SWITCH NINE (9), 
WILL REWIND ALL AVAILABLE TAPES TO BOT NO MATTER 
WHERE THEY ARE CURRENTLY POSITIONED AND RESUME TESTING 
ON THE CURRENTLY SELECTED UNIT. 


FERRARA ATER RE RATATAT RAA AAA AEE 


005056 032777 001000 173524 : #1000, aSWR 7 SEE IF SHOULD REWIND 
005064 B RWNDA :1F SO: BR 


R PC ZELSE Ex XIT 
000676 000716 : SAVE UNIT POINTER 
C N [CLEAR POINTER 
CLEAR EDT FLAG 


RESTORE EOT UNIT COUNTER 

: UNP ,RO :POINT TO UNIT ENTRY 
177777 =000746 C ete: BRANCH IF LAST ENTRY 
WN 


000746 UN1(RO) +t — REWINDING 


RWNDIA 
000746 000552 UN1(RO) ,UDES SET UNIT DESCRIPTION 
173356 a ;LOAD COMMAND REGISTER 
173316 #11,a DRIVE CLEAR 
173310 START REWIND 


173316 
cIF DRY: BR 


000670 
1$ AWAIT DRY 
024507 000654 #MSG6,EMADDR 
022602 PC, PAPRT PRINT HEADER 
026245 #MSG70,R4 
: TYPE MSG 


H 
100000 000746 : #100000,UN1(RO) ;CLEAR EOT FLAG 
000002 000676 A #2,UNP ;BUMP POINTER 

B RWNDO 700 NEXT UNIT 
000676 : UNP CLEAR POINTER 
000676 : UNP ,RO POINT TO UNIT ENTRY 
177777 000746 AP each BRANCH IF LAST ENTRY 

WN 


b 
000746 000552 UN1(RO),UDES | ;SET UNIT DESCRIPTION 
000552 173232 UDES,aTCc ;LOAD COMMAND REGISTER 
020000 173204 15: #20000, aDS 

;AWAIT PIP RESET 


1$ 
000552 173214 UDES ,aTC LOAD UNIT DESCRIPTION 
000002 173166 #2,a0S SEE IF HAVE BOT 

B RWND6 :1F NOT: BR 

000002 000676 : #2,UNP :BUMP POINTER 
000011 173136 #11,aC1 sORIVE CLEAR 

RWND3 :D0 NEXT UNIT 
000001 


: #1,R0 
022602 J PC, PAPRT PRINT HEADER 
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012704 025715 #MSG48,R4 
i TYPE MSG 


B RWNDS D0 NEXT UNIT 
000716 000676 RWNDX: UPS ,UNP RESTORE UNIT POINTER 
000676 M UNP ,RO 
000746 000552 UN1(RO) ,UDES RESET UNIT DESCRIPTION 
000552 173116 UDES,aTC 
005424 000207 PC RETURN TO TEST 


peReeeeeeeeeeeeereeeeeeeeeaeeeeeteeeeeeeeeeeeeereneeee 
INITIALIZE SELECTED SALVE 

THIS ROUTINE REWINDS AND SETS THE PROPER DENSITY IF 

THE DENSITY REQUIRED FOR THE TEST IS DIFFERENT FROM 

THE DENSITY AT WHICH THE SLAVE IS SELECTED. 


RRA RATER E AERA 


005426 013746 000552 : UDES ,~(SP) GET UNIT DESCRIPTION 
173060 DVN,acs LOAD DRIVE # 
(SP) ,aTC LOAD SLAVE # & SLAVE DESCRIPTION 
#174377, (SP) :CLEAR ALL BUT DENSITY BITS 
001400 * mentite BRANCH IF NOT NRZ 


000040 173036 ama 4 eg SLAVE IS IN PE MODE 


2$ 
000040 173024 : #40,a0S BRANCH IF SLAVE IS IN PE MODE 
4$ ;PES = 1 


000007 173002 #7,aC1 [LOAD REWIND COMMAND 
173010 i aps [WAIT FOR READY 


208 
020000 173000 : eae net WAIT FOR PIP = 0 
000011 172756 + hae CLEAR DRIVE 


005532 000207 





o- 
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005534 032777 000001 173046 
006332 


000654 
172726 
172716 
000674 
000664 


172676 


000662 
100000 000662 
00662 


0 
000002 
010000 172724 


017244 
000576 000670 
012124 


L 4 
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SEQ 0050 


PARA RAARARRRSARARAAALES AAA AL ALLELES EASTER SE EARS ESS 


sWRITE ROUTINE: 


THIS ROUTINE IS USED TO WRITE ONTO TAPE THE ——— 
OF DATA DESCRIBED BY THE OPERATOR AND SET U 
;IN THE SEQUENCE FORMATTER. THE TAPE UNIT 10 BE USED 


HAS BEEN ASSIGNED BY THE SEQUENCE FORMATTER AND 

:1TS PARAMETERS SET IN A UNIT DESCRIPTION WORD. 

sAS EACH RECORD OF THE BLOCK IS WRITTEN, IT IS CHECKED 

:FOR STATUS ERRORS, WORD COUNT ZERO, AND CORRECT CURRENT 
MEMORY ADDRESS. IF THE WRITE OPERATION RESULTS IN 

sANY ERROR CONDITION, A WRITE RETRY OF THAT OPERATION 

zMAY BE DONE BY SETTING SWITCH FOUR (4) TO A ONE (1). 

THE RETRY CONSISTS OF A BACKSPACE, ERASE FORWARD, AND 
REWRITE OF THE RECORD. (SEE WRITE RETRY SUBROUTINE) 

sAFTER ALL DATA RECORDS IN THE BLOCK HAVE BEEN 

WRITTEN, THE WRITE ROUTINE WILL EXECUTE A WRITE 

; TAPE MARK COMMAND IF THE TTY RESPONSE TM=1 WAS 

:MADE AT INITIAL START. THE TM IS COUNTED AS TOTAL 

:DATA RECORDS PLUS ONE (IE: IF 100 DATA RECORDS; TM=RECORD 101) 
z1F THE WRITE OPERATION (DATA OR TM) CAUSES THE SELECTED SLAVE 
TO REACH END OF TAPE (EOT) AND THERE IS TO BE NO READING DONE, 
:(SW2 AND SW3 SET TO A 1) THEN THE SLAVE IS REWOUND AND 
FLAGGED AS UNAVAILABLE FOR TESTING UNTIL ALL SLAVES HAVE 
REACHED EOT AND BEEN REWOUND AT WHICH TIME TESTING IS 
sRESUMED ON ALL AVAILABLE SLAVES. 

WRITE RETRY MAY BE ALLOWED VIA CONSOLE SWITCH FOUR (4). 


4 egy MAY BE DISALLOWED VIA CONSOLE SWITCH 
reno 10). TAPE MAY BE DISALLOWED VIA CONSOLE SWITCH 


WITTTTICTITITITITITITITITITITITTT TTT TTT iti Titi i ie 


#1,aSWR SEE IF SHOULD WRITE 
WRTE 


WEX If NOT: BR 

RCNT,RO ;RO=RECORD COUNT 

#ASG5 ,EMADDR SET ERROR MSG ADDRESS 
FACNT ,a@FC ;LOAD CHAR COUNT 
#WDATA,@BA SET DATA ADDR 
#60,MTC1 SET WRITE OP COMMAND 
#01, RTRN SET RETURN ADDRESS 
TAPG :GO EXECUTE COMMAND 
#2000,a0S SEE IF EOT 

ei :1f NOT AT EOT: BR 
Sa BRANCH IF WRITTEN PAST EOT 


RO, EOTREC ;SAVE RECORD COUNT 
#100000,EOTREC :++*B SET EOT INDICATOR 
EOTREC [+4B ADJUST RECORD COUNT 
#2,R0 :SET TO WRITE 1 LAST RECORD 
#10000, asur :SEE IF SHOULD CHECK ERRORS 


:1F NOT: BR 
PC,ERCHK ;60 CHECK tee 
WSTAL,STAL SET DELA 
PC, STALL :DELAY 
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005737 000714 ;SEE IF RETRY TIME 
;1F NOT: BR 
ELSE RETU RN 
000710 : sSEE IF WRITE ERROR 
w5 : BR 


:1F NOT 
000676 UNP ,R4 
001070 WTER1(R4) BUMP WRITE ERROR 
000710 SERFL CLEAR STATUS ERROR FLAG 
000020 172644 - ees SEE IF RETRY 
te 


:1F NOT: BR 
000724 ERSAV,R3 
102700 #102700,R3 ;MASK UNRECOVERABLE ERROR 
Wit :1F SO: BR 


022602 PC,PAPRT [PRINT HEADER 
026424 #ASG78,R4 
: TYPE MSG 


011244 2 anata PRINT ER FOR NON-RETRYABLE 
te 


000676 : UNP ,R4 
001050 RTY1(R4) BUMP RETRY CNTR 
002000 172572 #2000, aSWR SEE IF PRINT ERRORS 


WoA :1F NOT: BR 

026140 #ASG64 ,R4 
i TYPE MSG 
sCLEAR RETRY NUMBER 
CLEAR REPEAT COUNTER 
:GO RETRY WRITE ERROR 
:CLEAR RETRY COUNTER 
:SEE a DONE ALL 


TAFLG ; LAG 

000654 3 #ASG54,EMADDR ;POINT TO TM ERROR MSG 
#26,MTC1 SET TA OP CODE 
#0,aFC ;LOAD FRAME COUNTER 
#WOATA.@BA LOAD BUS ADDRESS 
#WTMO.RTKN SAVE RETURN ADDRESS 
TAPG WRITE TA 

172454 : 4 eas 2 @SUR SEE IF SHOULD CHECK ERRORS 


172356 a SEE IF TM STATUS 
:1F SO: BR 


TA 
027346 021012 FUDATA, CADER SET EXPT BUS ADDRESS 
000001 021020 #1,DRVER : INDICATE ERROR 
020064 ;PRINT TMH ERROR 


WTM2 
027346 : ° SET EXPT ADDRESS 
017340 ER2 :GO CHECK FOR OTHER ERRORS 
000714 : SEE IF RETRY 
z1F NOT: BR 
P ELSE RETURN TO ~ be ROUTINE 
000710 : : +1 IF L-\ E ERR 


F NOT: 
000676 UNP ,R4 
001070 WTER1(R4) BUMP WRITE ERROR 
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CZTURA.P11 13-JUN-78 10:30 SEQ 0052 
2343 006226 032777 000020 172354 BIT #20, aSWR SEE IF SHOULD RETRY 
2344 006234 001436 BEQ WEX :1F NOT: BR 
2345 006236 013703 000724 MOV ERSAV,R3 
2346 006242 042703 102700 BIC #102700,R3 sMASK UNRECOVERABLE ERROR 
2347 006246 001410 BEQ WTM4 :1F SO: BR 
2348 006250 004737 022602 JSR PC,PAPRT ;PRINT HEADER 
2349 006254 012704 026424 MOV #ASG78,R4 
2350 006260 000004 TYPE s TYPE MSG 
2351 006262 004737 011244 JSR PC ,NRTP PRINT ER FOR NON-RETRYABLE 
2352 006266 000421 BR WEX 

. 2353 006270 005037 000702 WIM4: CLR RPCNT CLEAR REPEAT CNTR 
2354 006274 013704 000676 MOV UNP ,R4 
2355 006300 005264 001050 INC RTY1(R4) BUMP RETRY CNTR 
2356 006304 005037 000704 CLR RTCNT CLEAR RETRY CNTR 
2357 006310 032777 002000 172272 BIT #2000,aSWR SEE IF PRINT ERRORS 
2358 006316 001003 BNE WTMGA :1F NOT: BR 
2359 006320 012704 026140 MOV #ASG64 ,R4 
2360 006324 000004 TYPE TYPE MSG 
2361 006326 004737 006374 WTM4A: JSR PC,WRTY :G0 DO RETRY 
2362 006332 005037 000714 WEX: CLR RTVFL CLEAR RETRY FLAG 
2363 006336 005037 000700 CLR TMFLG CLEAR TAPE MARK FLAG 
2364 006342 005737 000662 TST EOTREC BRANCH IF NOT AT EOT 
2365 006346 100011 BPL WRWX 
2366 006350 017703 172234 WRW: MOV @SWR,R3 
2367 006354 042703 177763 BIC #177763,R3 
2368 006360 022703 000014 CMP #14,R3 SEE IF WRITE ONLY 
2369 006364 001002 BNE WRWX :1F NOT: BR 
2370 006366 000137 004330 JMP REOT ELSE REWIND 


2371 006372 000207 WRWX: RTS PC sEXIT 


TMO3/TUGS DATA RELIABILITY PROGRAM 
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012737 000001 000714 
006776 
000700 
005554 


006064 
000710 


000702 
000004 000702 


002000 172132 
026632 
026162 
000704 
000724 
000650 
102700 


022602 
026424 


011244 
000001 000650 


002000 172032 
027051 
026162 
000704 
027073 
000702 
000650 
000650 
000704 


000676 
006644 005364 001070 


MACY11 30(1046) 
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PERTARAAAAeAe eee ete Ke tt 


WRITE ERROR RETRY 


’ 
FERRARA AARAREAA AKA et 


B 
WRTYTM: 
WRTYR: 


B 
WRTY2A: 


T 
WRTY2B: 
T 


#1, RTVFL 


WRTYO 
#2000 ,aSWR 
WRTY1 
#ASG105,R4 
#MSG65,R4 
RTCNT,R3 
PC 
ERSAV,R3 
TEMPS 
#102700,R3 
WRTY2A 


PC,PAPRT 
#MSG78,R4 


WRTY 
#ASG110,R4 
#MSG65,R4 
RTCNT,R3 
#MSG111,R4 
RPCNT,R3 


P,R4 
WTER1(R4) 


SET RETRY FLAG 
3GO SPACE REVERSE FOR REPEAT 
7 SEE If TAPE MARK TIME 


:1F SO: BR 
TREWRITE RECORD 
:GO ON 


:GO WRITE TAPE MARK AGAIN 
REWRITE GOOD 

7: IF NOT: BR 

;BUMP REPEAT COUNTER 

SEE IF FOUR GOOD REPEATS 
:IF NOT: REPEAT 

SEE IF PRINT 

:1F NOT: BR 


TYPE MSG 
: TYPE MSG 


;PRINT RETRY NUMBER 
it on TESTING 


:GET E 

:CLEAR RECOVERABLE ERROR INDICATOR 
MASK RECOVERABLE BITS 

:1F RECOVERABLE: BR 

PRINT HEADER 

TYPE MSG 

:PRINT ER 

SET FLAG 


:SEE IF PRINT 
IF NOT: BR 


: TYPE MSG 
: TYPE MSG 
PRINT RETRY NUMBER 
: TYPE MSG 

PRINT REPEAT NUMBER 
SEE IF DID NON-RECOVERABLE 
:1F NOT: BR 
:CLEAR FLAG 


sEXIT 
SEE IF FIRST RETRY 
:1F NOT: BR : 


;DECREMENT WRITE ERROR CNTR 


SEQ 0053 
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006650 013704 000676 
001030 000732 
172044 


172036 
000732 


000656 
000040 
000554 


000040 172002 


007172 
000704 
000004 000704 


000676 
001050 
000734 
006402 
006772 000137 007410 


006776 005037 000710 
000600 000670 
012124 
026173 000654 
177777 =171466 
033354 171456 
012054 
000710 


000002 000726 
004330 
000734 
000734 


000654 
000674 


171356 
000664 


000710 
007166 000137 007050 


MACY11 30(1046) 


WRTYSA: soe 


. 2 
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UNP 


R3,R4 
BLCNTR, (R4) 
#40 ,R4 
RCNT, (R4) 
RO, (R4) 


(R4) 
#40,aBTPT 
WRTY4 
BTOV 
RTCNT 

#4 ,RTCNT 
WRTYS 

UNP ,R4 
RTY1(R4) 
ERTFL 


WRTYO 
BTUR 


BTADDR(R4) ,BIPT ; 
PT,R4 ; 


SEQ 0054 


UNIT NUMBER 

ADDRESS OF UNIT BAD TAPE CNTR 
COUNTER 

POINTER OFFSET 


ABSOLUTE POINTER 
BLOCK NUMBER 
RCNT OFFSET 


T RECORD NUMBER 


: SE 
:CORRECT RECORD NUMBER 
ity IF TOO MANY BAD SPOTS 


F NOT: BR 


sELSE GO TO BAD TAPE OVERFLOW 
;BUMP RETRY COUNTER 

SEE IF DONE 4 RETRIES 

:1F SO: BR 


;BUMP RETRY COUNTER 

SET ERASE FLAG 

:D0 NEXT RETRY 

sELSE GO TO BAD TAPE UNRECOVERABLE 


WRITE RETRY BACKSPACE-ERASE SUBROUTINE*ttteeeeee 


WRTSBO: 


WRTSB1: 


WRTSB2: 


WRTSB3: 


SERFL 
TSTAL,STAL 
PC, STALL 
aa 


#-1,a 
#RDATA,@BA 
PC ,BKRT 
SERFL 
WRTSB1 
#2,BTFLG 
(SP)+,(SP)+ 
REOT 


SERFL 

#"SG67 ,EMADDR 
arc 

#24,MTC1 
#WDATA,@BA 
+o aati 


APG 
#WDATA,R3 


WRTSBO 


CLEAR FLAG 
:D0 TURN AROUND DELAY 


SET ERROR CODE 
st a BACKSPACE 1 RECORD 


7 SE 

:GO BACKSPACE 
;SEE IF ERROR 
:1F NOT: BR 
SET FLAG 


RESET STACK 

3GO REWIND AND REMOVE FROM TESTING 
;SEE IF SHOULD ERASE 

;1F SO: BR 

;RETURN 

;CLEAR ERASE FLAG 

;CLEAR REPEAT CNTR 


:CLEAR FRAME COUNT 


SET ERASE OP-CODE 
:SET BA 

SET RETURN ADDRESS 
:GO ERASE 


SET EXPT BA 
:GO CHECK ERRORS 


:SEE IF ERROR 
s1F NOT: BR 





| 
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BAD TAPE OVERFLOW SUBROUTINE t#ttteenee 


007172 005037 000714 BTOV: L CLEAR RETRY FLAG 
000001 000726 M SET BAD TAPE OVERFLOW FLAG 
:+#B ADJUST STACK PTR 
004330 J :GO REWIND AND REMOVE FROM TESTING 
000732 : : :SET TABLE POINTER 


;R3=R3/2 FOR CORRECT NUMBER 
;PRINT ENTRY NUMBER 


TYPE MSG 


024577 0 #ASG13+1,R4 


(R1),R3 
PRINT BLOCK NUMBER 
024604 #ASG14,R4 
: TYPE MSG 


000040 #40,R1 ;SET POINTER OFFSET FOR RECOED NUMBER 


(R1)+,R3 
PRINT RECORD NUMBER 
000040 SUB an RESET POINTER FOR BLOCK NUMBER 
“ 
171436 RO,@BTPT SEE IF DONE 
BTOV2 :1F SO: BR 
025131 #ASG28,R4 
TYPE MSG 
B ; CONTINUE 
000730 : SEE IF STAT ONLY PRINT 
B :1F SO: BR 
000041 SET SIZE OF TABLE 
000732 M SET POINTER 
:CLEAR TABLE 
SEE IF DONE 
B 7: 1F NOT: BR 
007332 000207 : ; RETURN 





oOo —_ 
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CZTURA.P11 


007334 


007404 


007410 
007414 
007420 
007422 


13-JUN-78 


012704 


000137 


004737 
012704 
000004 
000207 


10:30 


025131 
000676 


001030 
171352 


027105 
171332 


007212 


022602 
026733 


000732 


. 7% 
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R 
BIPRT1: 


;BAD TAPE STATISTIC PRINTeeteerere 


#ASG28,R4 
7 TYPE MSG 


UNP ,R4 
BTADDOR(R4),BTPT ;SET TABLE POINTER 
@BTPT,R3 


R3 CORRECT NUMBER 
:PRINT NUMBER OF BAD SPOTS 
#MSG112,R4 


: TYPE MSG 
aBIPT ;SEE IF ANY BAD SPOTS 
BIPRT1 :I1F SO: BR 
PC sELSE RETURN 
BTOVO :PRINT STATS 


BAD TAPE UNRECOVERABLE SUBROUTINE**eeeeeeee 


JSR PC,PAPRT PRINT HEADER 
MOV #MSG107,R4 

TYPE TYPE MSG 

RTS PC RESUME TESTING 


SEQ 0056 





CO —_d 
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PAPA SRRRR AS RASAARSSASA SALAS AL ALES SE EE LAS ESSER ESSE SE Sf 


READ SEQUENCER: 


THIS ROUTINE IS USED TO DETERMINE THE SEQUENCE 

:IN WHICH READ TAPE OPERATIONS ARE TO BE PERFORMED. 
THIS IS NECESSARY WHEN THE UNIT BEING TESTED IS 
CAPABLE OF READING DATA IN BOTH THE FORWARD AND 
sREVERSE DIRECTIONS. CONSOLE SWITCHES ONE (1), TWO (2), 
;AND THREE (3) ARE USED TO DETERMINE THE READ SEQUENCE. 
;CONSOLE SWITCH ONE (1) DETERMINES WHETHER TO READ 

THE BLOCK OF DATA FORWARD FIRST OR REVERSE FIRST. 
SWITCH TWO (2) DISALLOWS READING IN THE REVERSE 
DIRECTION AND SWITCH THREE (3) DISALLOWS READING IN 
THE FORWARD DIRECTION. 


FERRARA RAE AAA RARER EAA 


007424 012737 000002 000562 : #2,RDCMD 
171152 @SWR,R4 READ SWITCHES 
177763 sen iP et: On BITS & SEE IF BOTH READS 
S :1 
000002 171136 #2,aSWR SEE IF READ REVERSE FIRST 
RSFR :1F NOT: BR 
000004 171126 : #4 ,aSWR +1 e — READ REVERSE 
N 


RSF 
010000 000562 #10000, RDCMD ;LOAD READ REVERSE COMMAND 
007736 PC READ :GO READ REVERSE 
000010 171104 : #10,aSWR iy mets SHOULD READ FORWARD 


RSEX BR 
010000 000562 4+ came :SEE IF By READ REVERSE 


:1F NOT 
000600 000670 TSTAL,STAL 
012124 se :D0 READ STALL 


S 
000001 171050 : #1,aSWR ;SEE IF WRITE 
RSF1 :1F NOT: BR 
011700 PC ,BKSP :G0 BACKSPACE 
000002 000562 : #2,ROCMD ;LOAD READ FORWARD COMMAND 
007736 PC READ :G0 READ 
000662 : ea BRANCH IF NOT AT EOT 
004330 REOT ELSE GO TO REWIND 
000207 : PC sEXIT 


012737 010000 000562 : #10000 ,RDCMD 
000010 171000 10,aSw 7 SEE 4 —— READ FORWARD 


IF 
000001 170770 ;SEE IF WRITE 
:1F NOT: BR 
011700 J :GO BACKSPACE TO START 
000562 : LOAD READ FORWARD COMMAND 
J :G0 READ FORWARD 
000004 170742 : :SEE IF SHOULD READ REVERSE 
8 IF NOT: BR 


RSEX : 
010000 000562 #10000, RDCMD 
RSFR2 :1F READ REVERSE: BR 
007660 013737 000600 000670 TSTAL,STAL D0 READ STALL 
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007666 004737 012124 


000562 RSFR2: 


000662 


000554 000662 
000662 
000662 
004330 
007734 000207 


G 5 
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PC,STALL 

#10000 ,RDCMD ;LOAD READ REVERSE 

PC READ :GO READ REVERSE 
EOTREC SEE IF AT END OF TAPE 
RSFRX ;1F NOT: BR 

RCNT ,EOTREC 

EQTREC ;SET TO PROPER RECORD NUMBER 
EOTREC 

REOT ELSE GO TO REWIND 

PC sEXIT 


SEQ 0058 





o—- 


TMO3/TU4S DATA RELIABILITY PROGRAM 
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CZTURA.P11 


007736 


13-JUN-7 


013700 


000554 
000662 


010000 
100000 
000662 


024507 
000700 
010000 
000564 
000700 
000556 
033354 
010000 
000556 


000020 


170406 
000076 


000562 
000662 


000654 


000562 


170454 
170444 
000562 


000552 


000674 


H 5 
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SEQ 0059 


SRR AREER AAA EE AAT E TAA A EAA EARAAATAERAEKEAKEEEE 


READ ROUTINE: 


THIS ROUTINE PERFORMS THE READ OPERATION DETERMINED 

BY THE READ SEQUENCE ROUTINE ONE RECORD AT A TIME. 

sAT THE END OF EACH READ OPERATION THE STATUS REGISTER 
:1S SCANNED FOR EITHER END OF TAPE OR BEGINNING OF TAPE. 
: IF EQT WAS REACHED, CONTROL WILL BE PASSED TO 

;THE EOT SUBROUTINE TO REWIND THE UNIT AND FLAG IT 
UNAVAILABLE UNTIL ALL UNITS HAVE REACHED EOT. 

IF BOT WAS REACHED AN ERROR IS PRINTED AND THE 

PROGRAM WILL HALT. TESTING MAY BE RESUMED BY PRESSING 
>THE CONTINUE SWITCH. 

IF A TAPE MARK IS EXPECTED (TM=1) THEN THE 

READ ROUTINE EXPECTS THE FIRST RECORD OF A 

READ REVERSE TO BE A TM, AND THE LAST RECORD 

OF A READ FORWARD TO BE A TM. REMEMBER 

THAT THE TM ADDS ONE (1) TO THE TOTAL NUMBER 

OF RECORDS IN A BLOCK. 

;CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13) DETERMINE WHETHER 
;OR NOT TO CHECK FOR STATUS ERRORS (11) OR DATA ERRORS (13), 
CONSOLE SWITCH FIVE (5) IS USED TO CAUSE A CONTINUOUS 
READ AND SPACE (FORWARD OR REVERSE) OF THE CURRENT 
RECORD ON TAPE (YOZZLE). 


FERRARA AERA HAASE AE REET A AAA AAA AAT KAAAAAKAAAEREREKE 


RCNT,RO ;LOAD REC CNTR 
EOTREC :SEE IF ey 

RDA :1F NOT 
710000, ROCMD :SEE IF “READ FORWARD 

RDA :1F SO: BR 
#100000,EOTREC ;CLEAR FLAG 
EOTREC,R3 GET MODIFIED — COUNT 

R3,RO SET RECORD A 

RO :SET TO PROPER NUMBER OF RECORDS 
#ASG6,EMADDR SET ERROR MSG ADDRESS 

TMFLG 
#10000, RDCMD 
RDO :1F READ FORWARD: BR 
:SEE IF TM 
IF NOT: BR 

SET TA FLAG 


RO 

FMCNT ,aFC ;LOAD CHAR CNTR 
#RDATA,@BA ;LOAD DATA ADDR 
#10000, RDCMD ;SEE IF READ REVERSE 
RDIA : BR 


z1F NOT 
FACNT,RS 
R3 


#20,UDES SEE IF CORE DUMP 
RD1 IF NOT: BR 


sR3 = FC/2 
7SET REVERSE BUS ADDRESS 
;SET READ REVERSE 





oOo 
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2670 010116 012737 000070 000674 
2671 010124 012737 010136 000664 
2672 010132 000137 021072 
2673 010136 032737 010000 000562 
2675 010146 032777 002000 170346 
2677 010156 005737 000700 
2679 010164 010037 000662 
2680 010170 052737 100000 000662 
2681 010176 032777 000002 170316 
2683 010206 004737 022602 
2684 010212 012704 024710 
2687 010222 000137 003160 
2688 010226 032777 004000 170354 
2690 010236 005737 000700 
2692 010244 032777 000004 170250 
2694 010254 012737 033354 021012 
2695 010262 012737 000002 021020 
004737 
2698 010300 032737 010000 000562 
2700 010310 005264 001150 
2702 010316 005264 001110 


2704 010324 012703 033354 
2705 010330 032737 010000 000562 


2707 010340 032737 002000 000552 
2709 010350 062703 000002 
000422 
2711 010356 013704 000556 
2713 010364 032737 000020 000552 


2718 010402 042703 000001 
2719 010406 pt fe 4 002000 


2721 010416 162703 000002 
2722 010422 004737 017340 


2724 010430 004737 017244 
2725 010434 005737 000710 


000552 


MACY11 30(1046) 


RD3: 


RD4: 


18: 
RDGA: 


RD4A0: 


RDGA1: 


RDGA2: 


RD4B: 
RD4C: 


. 
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#70,MTC1 
wRD2, oRTRN 


— »ROCMD 
#2000,a0S 
RDS 


TMFLG 
RD3 


RD4 
PC ,PAPRT 
#ASG22 ,R4 


STARTA 
#4000 ,ASWR 
RD 


RD 
#RDATA,CADER 
#2,DRVER 
PC,ERPT 

UNP ,R4 

+ cee 
RDERR1(R4) 
RD6 
RDER1(R4) 
RD6 


#RDATA,RS 
8 pita 


RD4A 
#2000 ,UDES 
RD4A2 
FMCNT,R4 
R4 
#20,UDES 
RD4A1 


R4 
R4 RS 


#1,R3 
#2000 ,,UDES 
RD4A2 


RO, EOTREC 
2 + meetin 


SEQ 0060 


SET READ FORWARD 
7SET INTERRUPT RETURN ADDRESS 
:GO EXECUTE TAPE COMMAND 
SEE IF READ REVERSE 
F SO: BR 


:1F S$ 
SEE IF EOT 
:1F NOT: BR 
SEE IF TM 
z1F SO: BR 


SET EOT FLAG 

:SEE IF AT LOAD POINT 
IF NOT: BR 

PRINT CYCLE NUMBER 


TYPE MSG 


;RESTART 
;SEE IF SHOULD CHECK ERRORS 
NOT: BR 


:1F NO TM EXPT: BR 
:1F TM RECVD: BR 
SAVE EXPT BUS ADDRESS 


SET TM STATUS ERROR FLAG 
:GO PRINT TM ERROR 


:SEE IF READ REVERSE 
:1F NOT: BR 
; BUMP READ REVERSE ERROR 


;BUMP READ FORWARD ERROR 


;SEE IF READ REVERSE 
:1F SO: BR 

: SEE IF IN PE 

F SO: BR 


:SEE IF CORE DUMP 
NOT: BR 


SET TO FC/2 

SET EXPT BUS ADDRESS 
MAKE EXPT ADDRESS EVEN 
SEE IF IN PE 

cIF SO: BR 


:GO CHECK ERRORS 


ao, 
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010440 001417 
000676 
010000 000562 
001110 
001150 
010672 
000714 
020060 170102 
000700 
015374 
000710 
014240 
000040 170050 
011260 
000574 000670 
012124 
010000 000562 
000700 
000662 
000001 
010034 
010000 000562 
000662 
000564 
000700 
000700 
010034 


000700 
000207 


MACY11 30(1046) 
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SEQ 0061 


RDS :1F NO ERROR: BR 
UNP ,R4 
#10000 ,RDCMD 
RD4D 
RDER1(R4) 

4E 


RD 
RDERR1(R4) 
PC .RDRTY 


RTYFL 
#20000 ,aswR 
RD6 


;SEE IF READ REVERSE 

:1F SO: BR 

;BUMP READ FORWARD ERROR 
;BUMP READ REVERSE ERROR 
:GO RETRY 


sCLEAR RETRY FLAG 
SEE IF SHOULD DO DATA CHECK 
:1F NOT; BR 


:GO CHECK DATA 

CLEAR STATUS ERROR FLAG 
CLEAR BUFFER 

SEE IF SHOULD YOZZLE 
:1F NOT: BR 

ELSE GO YOZZLE 

4,4 Deir 


STA 
SEE TF iF Nyy REVERSE 
CLEAR. TAPE MARK FLAG 
:SEE IF EOT FOUND 
;1F NOT: BR 

7SET TO EOT 
:1F DONE ALL: BR 

7SEE IF READ REVERSE 

:1F SO: BR 

;SEE IF FOUND EOT 

TIF SO: BR 

sSEE IF TM EXPECTED 

71F NOT: BR 

:SEE IF TM FOUND 

:1F SO: BR 

sELSE SET FLAG 

;SET RECORD COUNT TO ONE 
+60 READ TM 


EXIT 


PC,YO2 
RSTAL,STAL 
PC, STALL 
#10000, RDCMD 
RO7A 
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PARRA RAARARASLALALAAAELAAAAALASLALALAAL EEE E SESE A SALES SS 


READ ERROR RETRY SUBROUTINE: 


s THIS SUBROUTINE WILL RETRY ALL DATA RELATED 
;READ ERRORS UP TO EIGHT (8) TIMES. IF ALL 
sFOUR RETRIES ARE BAD, IT IS CONSIDERED 

A HARD ERROR. IF ANY ARE GOOD, IT IS A 
SOFT ERROR. RETRIES MAY BE INHIBITED 

VIA SWITCH FOUR (SW4=0: INHIBIT RETRIES) 


FRR AAA AREER EAE AEEKAEREEAAAAAARERAEKAREE EEE 


032777 000020 167710 : #20, aSWR SEE IF RETRY INHIBITED 
0 IF NOT: BR 
sELSE RETURN 
000724 


RSAV,R 
102700 MARK NON-RECOVERABLE ERROR BITS 
T1 :1F NOT: BR 
022602 . ;PRINT HEADER 
026465 #ASG79,R4 
i TYPE 


MSG 
011244 J PC .NRTP :PRINT Bs FOR NON-RETRYABLE ERROR 
RDRT1A: PC ; RETURN 
002000 167644 RDRT1: #2000 ,aSwR 7SEE IF PRINT INHIBITED 
RORT1B :1F SO: BR 
026140 #ASG64 ,R4 
TYPE MSG 


T 
000704 RDRT1B: :CLEAR RETRY COUNTER 


000710 RDRTG: S CLEAR STATUS ERROR FLAG 
000002 000714 SET READ RETRY FLAG 

011260 :GO TO YOZZLE TO RETRY READ 
000710 SEE IF RETRY ERROR 


:1F SO: BR 
002000 167576 
RORT 
026632 #MSG105.R4 
026162 #ASG65,R4 


TYPE MSG 
000704 MOV RTCNT,R3 

PRINT RETRY NUMBER 
000676 


: UNP ,R4 
010000 000562 #10000 ,ROCMD SEE IF READ REVERSE 
RDRTS c1F SO: BR 
002670 eo ;ELSO BUMP FORWARD SOFT ERROR COUNTER 
002710 : ~~ ath dase ies ERRORS SOFT CNTR 


000724 : :GET FR 
000650 TEMPS CLEAR RECOVERABLE ERROR INDICATOR 
102700 MASK RECOVERABLE BITS 
RDORTSA :1F RECOVERABLE: BR 
022602 PRINT HEADER 
026465 #WSG79,R4 
i TYPE MSG 


011244 PC ,NRTP ;PRINT ER 
012737 000001 000650 #1, TEMPS 7 SET FLAG 


: TYPE MSG 


Mo —t o~ 
NOARORRS 





ou 
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011130 tps a 


002000 167450 
026162 
000704 
000650 
000650 


000704 
000704 000604 


027150 


000676 
010000 000562 


002730 
002750 


SNA AMUI ES & 
ANMNOLSMUALOS 


000207 


011244 013703 000724 
011250 104400 
011252 004737 021036 
011256 000207 


MACY11 30(1046) 


B 
RDRTSA: 
RDRTSB: 

T 


L 5 
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SEQ 0063 


RORTSB 
#2000, aSWR SEE IF PRINT INHIBITED 
RDRT6 :IF SO: BR 
#ASG65 ,R4 

: TYPE MSG 


RTCNT,RS 
PRINT RETRY NUMBER 
SEE IF DID NON-RECOVERABLE 
:1F NOT: BR 
CLEAR FLAG 


SEE IF DONE 8 RETRIES 
:1F NOT: BR 


: TYPE MSG 

:SEE IF READ REVERSE 

:IF SO: BR 

;BUMP FORWARD HARD ERROR CNTR 

;BUMP REVERSE HARD ERROR CNTR 
ETURN 


C 
RTCNT RETRY 
RORTG 
#MSG115,R4 
UNP ,R4 
#10000 ,ROCMD 
RDRT7 
RF HARD (R4) 
RORTX 
RRHARD (R4) 
PC 


ERSAV,R3 
PC,FRPRT 
PC 


GET ER REGISTER 
PRINT ER 

PRINT F OR R 
RETURN 
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FERRARA AAR ARTETA AEE EERE EERE RAREEEAAEE 


:YOZZLE SUBROUTINE: 


; THIS SUBROUTINE, ENTERED VIA SWITCH FIVE (5), IS USED TO PERFORM 
:A CONTINUOUS READ AND SPACE OVER OF THE CURRENT RECORD ON TAPE. 
FULL STATUS AND DATA CHECKING MAY BE PERFORMED 

:OR NOT VIA CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13). 

sA SOFTWARE DELAY IS PERFORMED BETWEEN EACH READ 

;AND SPACE OPERATION AND MAY BE VARIED BY TYPING 

sCNTRL C ON THE TTY AND ENTERING A VALUE IN RESPONSE 

:TO THE PRINTED REQUEST. 


FRR RATER AERA AAA EAE EAE REAR AAREAAERAEEEREE 


011260 013737 000602 000670 : YSTAL,STAL 
012124 PC, oy D0 YOZZLE STALL 
177777 =167216 : #-1 SET TO 1 RECORD SPACING 
010000 000562 ri0600, »ROCMD +1 a4 — REVERSE 
000030 000674 oars MTC SET TO SPACE FORWARD 


000032 000674 : 130 mTC1 SET TO SPACE REVERSE 
000664 : #YO2ZC ,RTRN SET RETURN ADDRESS 
000670 #177775, STAL SET TIME MULTIPLIER 
TAPG :GO YOZZLE 
000700 : TAFLG SEE IF TM 
1$ IF NOT: BR 
040000 000670 + ama dete SET TM STALL 


000602 000670 : YSTAL,STAL 

012124 2s: PC, STALL 00 YOZZLE STALL 
033354 167110 #RDATA,@BA ;SET BUS ADDRESS 
010000 000562 arn SEE IF READ REVERSE 


YO [IF NOT: BR 
000556 FRCNT RS 
000020 000552 #20,UDES :SEE IF CORE DUMP 
v0z7C0 [IF NOT: BR 
A R :R3 = FC/2 
167054 : R3,aBA [SET REVERSE BUS ADDRESS 
000076 000674 m #76. TCI :SET READ REVERSE 
000070 000674 : #70, "TCI :SET READ FORWARD 
167032 : FMCNT,aFC [SET CHARACTER COUNT 
000664 #020, RTRN :SET RETURN ADDRESS 
004000 167104 7 8 #4000, aswR : SEE F SHOULD CHECK ERRORS 
000700 Mie : “TAPE MARK TIME 
v0201 IF NOT: BR 
010000 000562 #10000,RDCMD ts: :SEE READ REVERSE 
0700 T: BR 


033354 #RDATA,RS 
000556 FRACNT,R4 


R4 
000020 000552 #20,UDES ; CORE DUMP 
Y0204 ; OT: BR 


oooooooo 
ah a Et ss 
a Rs nt 
Ppeppepaeee 

— 
REESRNES 


001401 





TMO3/TU4S DATA RELIABILITY PROGRAM 
CZTURA.P11 13-JUN-78 10:30 


011546 006204 
000001 
002000 000552 
017340 
033354 
002000 000552 
017340 


017244 
000714 


020000 166746 
000700 
015374 
014240 
000040 166720 


011272 
011676 000207 


MACY11 30(1046) 


YOZD4: 
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SEQ 0065 


R4 SET TO FC/2 

R4 RS SET EXPT BUS ADDRESS 
#1,R3 MAKE EXPT ADDRESS EVEN 
#2000.UDES SEE IF PE 

YOZD2 :1F SO: BR 

-(R3) SET EXPT BA 

PC,ER2 :GO CHECK ERRORS 

YOZF 

#RDATA,R3 


#2000,UDES sSEE IF PE 


YO203 :1F SO: BR 
(R3)+ SET EXPT BA 
PC,ER2 


YOZF 
PC,,ERCHK 
RTYFL 


:GO CHECK ERRORS 


sELSE GO by ERRORS 
SEE IF RETR 


:1F SO: BR 

:SEE IF SHOULD CHECK DATA 
;I1F NOT: BR 

;SEE IF TAPE MARK 

;1F SO: BR 

ELSE GO CHECK DATA 

3GO CLEAR DATA AREA 


+t IF SHOULD CONTINUE YOZZLE 
F NOT: BR 


sEXIT 


YO2G 
#20000, aSwWR 
YOZF 
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FRAAAAAARATAAA KATATE AAAeAe AAA Ae eeeeeee eter eeeet 


sBACKSPACE SUBROUTINE: 


THIS SUBROUTINE IS USED TO PERFORM THE 

;BACKSPACE OPERATION REQUIRED BY THE READ 

ROUTINE FOR READ FORWARD AFTER WRITING. 

z1F A TAPE MARK IS EXPECTED (TM=1) THEN THE SPACE 
;ROUTINE ASSUMES THAT THE TM WILL BE FIRST WHEN 
sBACKSPACING. THEREFORE TWO OPERATIONS ARE REQUIRED 
:TO SPACE OVER A BLOCK. FIRST SPACE OVER THE TM, THEN 
SPACE OVER THE DATA RECORDS. 

zA CHECK FOR RECORD COUNT ZERO IS MADE AT THE 

END OF THE SPACE OPERATION TO ASSURE THAT PROPER 

; TAPE POSITIONING WAS DONE. 


POSIT IISIS ISIS STITT t ttt iti ti iii ti tiiiiiitititititiy) 
013737 000600 000670 : TSTAL,STAL 


PC, STALL 
000654 #SG10,EMADDR 
166566 #ROATA,@BA 
000564 TREX SEE IF TM 
BO :1F NOT: BR 
177777 =166554 #-1,aFC 
000674 #32,MTC1 
000664 #BKTA,RTRN 


:D0 TURN AROUND STALL 


:SPACE TO TM 


J TAPG 
010000 166620 : #10000 ,aswR ;SEE IF SHOULD CHECK ERROR 
B B0 NOT: BR 


IF 
026054 000654 #MSG55,EMADDR 
000004 166514 #4,a0S SEE IF TM 


BKTMO :1F SO: BR 
033354 021012 #RDATA,CADER 
020064 aoe PRINT ERROR 


B B 
033354 : #RDATA,R3 
017340 PC,ER2 


000554 : RCNT,RO 
RO ;BUILD SPACE AMOUNT 
024537 000654 oy try -EMADDR = ;SET ERROR MESG ADDRESS 


0 
000674 3 #32,MTC1 SET SPACE REVERSE 
000664 #B81,RTRN SET RETURN ADDRESS 
RO,STAL ;SET INTERRUPT TIME MULTIPLIER 
TAPG :GO DO SPACE 
a 


PC,E 
000670 : TSTAL,STAL 3:00 STALL 
012124 PC,STALL 7 STALL 
000207 PC sEXIT 
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FRR AAA AAA TARA AAAEAEAAHAAAAAAAATEAAAARAARAAAKEAEREE 


sSTALL ROUTINE: 


THIS ROUTINE IS USED TO PROVIDE SOFTWARE DELAYS 
DURING READ, WRITE, TURN AROUND, AND YOZZLE. 
;THE DELAY TIMES MAY BE SET BY THE OPERATOR AT 

s INITIAL START FROM 200(8) OR MAY BE MODIFIED 

;AT ANY TIME BY ENTERING CNTRL C ON THE TTY AND 

; INSERTING NEW VALUES IN RESPONSE TO THE REQUEST. 
:THE READ STALL AND THE WRITE STALL ARE DELAYS 
EXECUTED BETWEEN EACH RECORD OF THE DATA BLOCK. 
:THE TURN AROUND STALL IS EXECUTED EACH TIME 

THE DIRECTION OF TAPE MOVEMENT IS CHANGED AND 
ALSO EACH TIME THE TAPE OPERATION CHANGES FROM 
WRITE TO READ OR READ TO WRITE. THE YOZZLE 
sSTALL IS EXECUTED ONLY DURING THE YOZZLE ROUTINE. 


FRAT AAA R ERE EERE REAA AAA AARAAAERAEAREREAEEREREEEE 


3007 

3008 012124 005337 000670 DEC STAL 

3009 012130 001375 BNE STALL : DELAY 
3010 012132 000207 RTS PC sEXIT 
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FERRARA AAAAA TARA AAAAAARTERATATAAAAAAAAAAARAAREAAEKEAE 


;RANDOM CHARACTER COUNT GENERATOR: 


THIS ROUTINE ENTERED VIA CONSOLE SWITCH 
sSEVEN (7) IS USED TO GENERATE A RANDOM 

; CHARACTER COUNT FOR EACH DATA BLOCK. 

sALL RECORDS WITHIN A GIVEN BLOCK WILL BE 
:THE SAME, BUT EACH BLOCK WILL VARY. 

;THE LIMITS ARE TWENTY (20) TO FOUR THOUSAND 
:(4000) OCTAL CHARACTERS PER RECORD. 


FRA AAA ATER E EERE AAEAAEAEEAAAAAAARAARAAERKKEKKKE 


012701 177760 : #-20,R1 SET HIGH LIMIT 
175000 M #-3000,R2 SET LOW LIMIT 
4 PC RANG :GO GENERATE NUMBER 
000630 #1 ,RANSAV 
000556 RANSAV , FACNT SET CHAR COUNT 
177777 =014276 #-1,PATS PRESET DATA PATTERN 
012172 000207 PC sEXIT 


FERRARA AAA AAA AEE AAA EAEEAAAEE EAA REAAAAARAAAKEREREKE 


:RANDOM RECORD COUNT GENERATOR: 


THIS ROUTINE ENTERED VIA CONSOLE SWITCH SIX (6) 
:I1S USED TO GENERATE A 1 aceteas NUMBER OF RECORDS 
FOR EACH BLOCK OF DATA 
;THE LIMITS ARE ONE (1) TO FIVE HUNDRED (500) OCTAL 
;RECORDS PER BLOCK. 


PTOSTCTrTeTrrreerrererrretrrrrrtttititrititttitttT Tit t; 


012174 012702 000001 : #1,R2 SET LOW LIMIT 
000500 M #500,R1 SET HIGH LIMIT 
023164 J PC RANG GO GENERATE NUMBER 
000630 000554 RANSAV ,RCNT SET RECORD COUNT 
012216 000207 PC sEXIT 
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FERRARA AAA REAA RARER AAEAAAAAAAAAAARARAAAAAAAAAAEEEE 


:TEST CONDITION ENTRY ROUTINE: 


STHIS ROUTINE IS USED TO ALLOW THE OPERATOR 

:TO ENTER, AT THE TTY, THE NECESSARY PARAMETERS 

:TO RUN THE PROGRAM AS HE WISHES. THE 

;ROUTINE IS ONLY ve UPON INITIAL STARTING 

zFROM LOCATION 200(8 

:THE MAIN PURPOSE OF THIS ROUTINE IS TO ESTABLISH 

:A TABLE OF DEVICES TO BE TESTED. THIS TABLE 

CONSISTS OF AN ENTRY FOR EACH OF ONE (1) TO 

sEIGHT (8) DEVICES. EACH ENTRY CONTAINS THE 

SLAVE NUMBER, DENSITY, PARITY, AND 

FORMAT. THE INFORMATION IS ENTERED 

2 IN RESPONSE TO PRINTED REQUESTS AT THE TTY. 

SLAVES MAY BE ENTERED IN ANY ORDER. EACH 

PARAMETER IS CHECKED FOR LEGALITY BEFORE BEING 

SET INTO THE TABLE. 

THE DRIVE NUMBER REGUEST WILL ALSO CHECK THE MASSBUS 

:FOR THE PRESENCE OF THE REQUESTED DRIVE. IF IT IS NOT FOUND, 
sA_NON~EXIST DRIVE MESSAGE WILL BE PRINTED AND ANOTHER DRIVE 
sREQUEST MADE. WHEN THE DRIVE IS FOUND, THE RESPONSE IS STORED 
sAND CONTROL PASSED TO THE SLAVE SELECT ROUTINE. 

:THE SLAVE SELECT ROUTINE ALSO CHECKS FOR THE PRESENCE OF THE 
SLAVE. IF IT IS NOT PRESENT, A MESSAGE IS PRINTED AND ANOTHER 
sREQUEST IS ISSUED. WHEN THE SELECTED SLAVE IS FOUND TO BE 
:PRESENT, A MESSAGE IS PRINTED IF IT IS A 7 CHANNEL DRIVE 

TO ASSIST IN SELECTING DENSITY, PARITY, AND FORMAT. 

;UPON COMPLETION OF THE DEVICE TABLE, REQUESTS 

sARE PRINTED FOR ENTRY OF THE NUMBER OF CHARACTERS 

:PER RECORD AND THE NUMBER OF RECORDS PER BLOCK. THE 

NEXT REQUEST IS FOR A PATTERN NUMBER TO BE USED 

FOR WRITING AND CHECKING OF READ DATA. 

FOLLOWING THE PATTERN REQUEST IS THE TAPE MARK OPTION. 
RESPONDING TO THE REQUEST (TM=) WITH A ONE (1) 

sWILL CAUSE THE PROGRAM TO WRITE A TM AT THE 

END OF EACH DATA BLOCK AND TO EXPECT THE 

:TM TO BE DETECTED IN EITHER READ FORWARD AND REVERSE 

OR DURING SPACE OPERATION. A RESPONSE OF ZERO (TM=0) 
sDISALLOWS WRITTING OF THE TM AND CAUSES THE READ 

:AND SPACE ROUTINES TO EXPECT NO TM TO BE PRESENT. 

; THE LAST REQUESTS ARE FOR ENTRY OF THE DESIRED 

;WRITE, READ, AND TURN AROUND STALLS. 


eC eS ISS elit ili iret iii telaliiitiiiilitiiiirititiiiy) 
012220 005737 00063é¢ : :SEE IF SHOULD INPUT FROM TTY 
B :1F SO: BR 


013706 :GET SWITCHES 
CLEAR TABLE POINTER 
:CLEAR EOT UNIT COUNTER 
:SET SIZE OF TABLE 

000746 SET START OF TABLE 
CLEAR TABLE 
;SEE IF DONE 

012256 001375 :1F NOT: BR 
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CZTURA.P11 
012260 


012562 


13-JUN-7 
012704 


001411 


025200 
000736 


025133 


025255 


025255 
014070 


026344 
000544 
000544 


026367 
000546 
000546 


000510 
000002 


000736 


021752 
000040 
026011 


000550 


16573 
010000 


MACY11 30(1046) 


F 
22-JUN-78 


#ASG31,R4 
ASEQF 

4$ 
#ASG30,R4 
R4,-(SP) 


a(SP)+ 
#MSG31A,R4 


MSG31A 
= 


6 
#MSG74,R4 
REGS ,R3 
#REGS,R5 
#7,R1 
#176400 ,R2 
#172300,R3 
PC,TIR 
#MSG75,R4 
VECT,R3 


#VECT,RS 
#4,R1 


#MTINT, (RO) + 


#340, (RO) 


acl 
#10000,aCS 
TINPO 


6 
09:14 PAGE 70 


SEQ 0070 


; SEE 4 _AuTO SEQ 
:1F NOT: BR 

:SET AUTO SEQ H 

; SAVE — OF MESSAGE 


: TYPE 
;D0 NOT TYPE TITLE ON RESTART 
; TYPE INSTRUCTION 


:D0 NOT TYPE STARTUP INSTRUCTIONS ON RESTART 
+e pe CONVERSATION 


TYPE MSG 


PRINT CURRENT REG START 
SAVE ADDRESS LOCATION 
SET SIZE OF ENTRY 

:SET UPPER LIMIT 

:SET LOWER LIMIT 

:GO GET RESPONSE 


TYPE MSG 


PRINT CURRENT VECTOR 

SET SAVE LOCATION 

SET SIZE OF ENTRY 

;SET UPPER LIMIT 

;SET LOWER LIMIT 

:GO GET RESPONSE 

GET VECTOR ADDRESS 

LOAD VECTOR WITH HANDLER ADDRESS 
;LOAD PRIORITY LEVEL 

GET STARTING REGISTER ADDRESS 
SET NUMBER OF REGISTERS 

GET FIRST ADDRESS LOCATION 
;BUILD TABLE OF ADDRESSES 
;BUMP ADDRESS 


SEE IF DONE 

:1F NOT: BR 

+SEE IF AUTO SEQ 
F NOT: BR 


PRESET STACK POINTER 
:GO TO AUTO SEQUENCE 


: INITIALIZE 


: TYPE MSG 

:GET ADDRESS 

SET SIZE OF RESPONSE 
SET UPPER LIMIT 

SET LOWER LIMIT 

:GO GET DRIVE NUMBER 


sACCESS DRIVE 
;SEE IF NED 
:1F NOT: BR 
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013100 


13-JUN-7 
012704 


012703 


026301 
000510 
000100 
025342 
000646 
000646 
000002 
000007 
000000 
023352 
000644 
000676 


000676 


002000 
026067 
165554 
000007 
142050 
025764 


165530 
000007 


024531 
165512 
024334 
025363 


000646 


000644 


003400 
000010 


000746 


000746 


165576 
165570 
165604 
165572 


000552 


MACY11 30(1046) 


TINPOB: 


TINPOC: 


TINPOD: 


TINPOE: 


TINP1: 
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#ASG71,R4 
C1,R4 
R4 
#100, (R4) CLEAR TRE 
6$ RETRY DVN 
#ASG32,R4 
TYPE MSG 
TEMP2 CLEAR BUFFER 
#TEMP2,R5 SET UNIT DESCRIPTION BUFFER ADDRESS 
#2,R1 SET NUMBER OF CHARACTERS TO INPUT 
7SET MAXIMUM LIMIT 
7SET MINIMUM LIMIT 


:GO GET UNIT NUMBER 
;SEE IF HAVE NEW PARAMETER 


:1F SO: BR 
SEE IF FIRST ENTRY 


TYPE MSG 


UNP ,RO 
#-1,UN1(RO) :SET END UNIT TABLE 
TINP2C :GO GET RECORD COUNT 


UNP ,RO 
#7 ,UN1(RO) CLEAR UNIT NUMBER 
[GO LOAD UNIT NUMBER TO PROPER POSITION 


;LOAD UNIT NUMBER 
;SEE IF SLAVE PRESENT 
:1F SO: BR 
#MSG57,R4 

TYPE MSG 
TINPO ;REDO 
adT,R3 :GET CONTENTS OF DT REG 
#7,R3 CLEAR DRIVE TYPE # 
#142050,R3 SEE IF 9TRK TMO3,TUSS 
TINPOE :1F SO: BR 
#MSG50,R4 ILLEGAL DRIVE TYPE 


7 TYPE MSG 
adT,R3 
R3 CLEAR SLAVE # 
PRINT DRIVE TYPE REGISTER 


TYPE MSG 
PRINT SERIAL NUMBER 


: TYPE MSG 
: CLEAR BUFFER 
>SET NUMBER OF CHARACTERS TO INPUT 
SET MAXIMUM LIMIT 
SET MINIMUM LIMIT 
GO GET DENSITY 
SEE IF HAVE NEW PARAMETER 
TINP2 :1F NOT: BR 
#3400,UDES ELSE CLEAR OLD PARAMETER 
#10,R3 SET POSITION FACTOR 


#ASG9,R4 


SEQ 0071 
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CZTURA.P11 
013104 


013430 


13-JUN-7 
004737 


013737 


014072 
025377 


000646 
000002 
000001 
000000 
023352 
000644 


000010 
000003 
014072 
026032 


000646 


000644 
000170 


000016 
000002 
012606 
000676 
005054 
005054 
005054 
025412 
000554 


000554 


025433 


00055¢ 
000556 


000556 


000556 
000556 


000552 


000552 


000676 
000676 


000632 


000634 


MACY11 30(1046) 


TINP2: 


J 
TINP2A: 
T 


J 
TINP2B: 
C 


J 
TINP2C: 


TINP3: 


H 6 
22-JUN-78 09:14 PAGE 72 


PC, TPOS 
#ASG34,R4 


#MSG35,R4 
RCNT,R3 
#RCNT RS 
#7,R1 


PC,TTR 
RCNT,RCSAV 
#MSG36,R4 


FMCNT 
FMCNT,R3 


#FRCNT,RS 
#7,R1 


MCNT 
FMCNT,FCSAV 


SEQ 0072 


:GO LOAD DENSITY INTO PROPER POSITION 


TYPE MSG 

CLR BUFFER 

;SET NUMBER OF CHARACTERS TO INPUT 
SET MAXIMUM LIMIT 

7SET MINIMUM LIMIT 

:GO INPUT PARITY 

SEE IF HAVE NEW PARAMETER 

:1F NOT: BR 

ELSE CLEAR OLD PARAMETER 

:SET POSITION FACTOR 

:GO LOAD PARITY TO PROPER POSITION 


; TYPE MSG 


:GO GET FORMAT 


:SEE IF NEW PARAMETER 
;1F NOT: BR 


;BUMP EOT UNIT COUNTER 
;SEE IF DONE UNITS 

:1F SO: BR 

sPOINT TO NEXT UNIT 
sELSE LOOK FOR NEXT UNIT 
;CLEAR UNIT POINTER 


SET UNIT EOT COUNTER 
7 TYPE MSG 


:PRINT RECORD COUNT 

SET RECORD COUNT ADDRESS 

SET NUMBER OF CHARACTERS TO INPUT 
SET MAXIMUM LIMIT 

7SET MINIMUM LIMIT 

:GO GET RECORD COUNT 

SAVE RECORD COUNT 


7 TYPE MSG 


PRINT CHAR COUNT 

SET CHARACTER COUNT ADDRESS 

SET NUMBER OF CHARACTERS TO INPUT 
7SET MAXIMUM LIMIT 

SET MINIMUM LIMIT 

:GO GET CHARACTER COUNT 

;SET TO TWO'S COMPLIMENT 

SAVE FRAME COUNT 
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013436 


013736 


13-JUN-78 1 
012704 


012705 


025452 
000560 
014440 


026227 
000564 
000564 


024663 
000570 
000570 


025475 
000572 
000572 
000002 
000001 
000000 
023352 
025515 
000566 


000566 


014070 
000636 
025555 
000574 
000574 


MACY11 30(1046) 


J 
TINP3A: 
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#ASG37,R4 
PATRN,R3 


DOFL 
#PATRN,RS 
#3,R1 


#MSG69,R4 
TMEX ,R3 
#TMEX,RS 
#2,R1 


#MSG21,R4 
INTRF ,R3 
o_o 


o 


#1,R2 
#0,R3 


PC,TIR 
#MSG38 ,R4 
SPFLG,R3 
#SPFLG,RS 
#2,R1 


#SG39,R4 

CRCC,R3 

#CRCC,RS 
2,R1 


#MSG40,R4 
RSTAL,R3 
#RSTAL,RS 


SEQ 0073 


;PRINT PATTERN NUMBER REQUEST 
YPE MSG 


PRINT PATTERN 

:CLEAR EXTERNAL DATA FLAG 

SET PATTERN NUMBER ADDRESS 

;SET NUMBER OF CHARACTERS TO INPUT 
7SET MAXIMUM LIMIT 

;SET MINIMUM LIMIT 

:GO GET PATTERN NUMBER 


7 TYPE MSG 


sPRINT CURRENT TM FLAG SETTING 
;GET TM FLAG ADDRESS 

;SET SIZE OF RESPONSE 

;SET UPPER LIMIT 

7SET LOWER LIMIT 

3 TM 1=YES 


TYPE MSG 


PRINT CURRENT SETTING 
GET FLAG ADDRESS 

SET SIZE OF RESPONSE 
7SET UPPER LIMIT 

SET LOWER LIMIT 

:GO GET RESPONSE 


7 TYPE MSG 


PRINT CURRENT SETTING 
SET ADDRESS OF FLAG 
SET SIZE OF RESPONSE 
;SET UPPER LIMIT 

;SET LOWER LIMIT 

:GO GET RESPONSE 


TYPE MSG 


GET SWITCHES 
BRANCH IF SHORT CONVERSATION 


BRANCH IF NO TTY INPUT 


: TYPE MSG 


PRINT READ STALL 
SET READ STALL ADDRESS 
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013742 012701 000007 SET NUMBER OF CHARACTERS TO INPUT 
2 SET MAXIMUM LIMIT 
SET MINIMUM LIMIT 
GO GET READ STALL 
025604 #SG41,R4 
7 TYPE MSG 


000576 Vv WSTAL ,R3 
PRINT READ STALL 


000576 V #WSTAL,RS ;SET WRITE STALL ADDRESS 
000067 #7,R1 ;SET NUMBER OF CHARACTERS TO INPUT 
177777 #-1,R2 3SET MAXIMUM LIMIT 
000001 #1,R3 3SET MINIMUM LIMIT 
023352 PC,TTR 3GO GET WRITE STALL 
025616 #MSG42,R4 
; TYPE MSG 


000600 MOV TSTAL,R3 
PRINT TA STALL 


000600 #TSTAL,RS SET TURN AROUND STALL ADDRESS 
000007 #7,R1 SET NUMBER OF CHARACTERS TO INPUT 
177777 . SET MAXIMUM LIMIT 

000001 7SET MINIMUM LIMIT 

023352 J :GO GET TURN AROUND STALL 

014070 : : CLEAR SHORT CONVERSATION FLAG 


sEXIT 
014070 000000 : > SHORT CONVERSATION FLAG 
UNIT DESCRIPTION POSITIONING SUBROUTINE**teteneee 


014072 006337 000646 : TEMP2 POSITION CHARACTER 

005303 D R3 SEE IF DONE 

001374 B TPOS :1F NOT: BR 

013700 000676 TPOS1: UNP ,RO ;LOAD UNIT POINTER 

053760 000646 000746 B TEMP2,UN1(RO) ;LOAD CHARACTER INTO UN1(RO) 
014114 000207 PC sEXIT 
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014116 


014300 


13-JUN-78 


005737 


000000 


10:30 


015030 
000736 
000560 
014766 
000560 
000552 
177767 
014300 


014300 
015032 


027346 
000560 
014276 
000001 


002770 
015032 
000556 


033354 


014276 


000552 014300 
177767 014300 


MACY11 30(1046) 


DSOC: 
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SEQ 0075 


FRREAAE AERA ARATE REET AAA AAAAAAAARAKEAARAKEAREEE 


DATA SETUP ROUTINE: 


THIS ROUTINE IS USED TO GENERATE INTO THE ENTIRE 
sWRITE BUFFER (4000 OCTAL CHARACTERS) THE DATA PATTERN 
;SELECTED BY THE OPERATOR. E 

:DATA PATTERNS AVAILABLE AND ONE SELECTION (DATA PATTERN 0) 
sWHICH WILL READ ANY PATTERN PRESENTED AT THE 

sHIGH SPEED PAPER TAPE READER. 
:;BY USING THE PROGRAM CALLED DTC. 
;RANDOM DATA MAY ALSO BE USED VIA CONSOLE 
SWITCH EIGHT (8). 

; THIS ROUTINE IS ALSO USED TO CLEAR OUT THE 
sREAD BUFFER (4000 OCTAL CHARACTERS) BEFORE EACH 
RECORD IS READ. 


SURAT EEE AEA AAR AAKEAKEEKEE 


THERE ARE 15 (8) FIXED 


THIS TAPE MUST BE PREPARED 
(CZTUTAO) 


+SEE IF Md RANDOM DATA 
AUTO SEQ 
T: BR 
AUTO RANDOM 
NOT: BR 
TELSE GO GENERATE RANDOM DATA 
;RETURN 


PC ; 
PATRN,PATS SEE IF NEW PATTERN 
DSOA :1F SO: BR 
:GET UNIT DESCRIPTION 
:MASK EVEN PARITY 
SEE IF SAME AS LAST TIME 
:1F SO: BR 
SAVE PARITY 
ae *CRCLRC :GO GENERATE EXPT CRC/LRC 


C 
#WDATA,R3 3R3 = ADDRS OF WRITE BUFFER 
PATRN,R1 :R1 = PATTERN SELECTOR 


R1,PATS 

#1,R1 :BUMP POINTER 

R1 MAKE PATTERN SELECTOR EVEN 
PC,@DATBL(R1)  ;GO GENERATE PATTERN 
PC,CRCLRC :GO GENERATE EXPT CRC/LRC 
FMCNT,R2 :R2=BUFFER SIZE 

R2 sR2=FRAME CMT/2 

#RDATA,R1 3R1=READ DATA START 

(R1)+ :CLEAR BUFFER 

R2 : SEE a4 ony ALL 


DS4 c1F ON 
UDES,PARS :GET UNIT DESCRIPTION 
4 leaden 


UDES ,R3 
#177767,R3 
R3 


nit PARITY 
PATTERN NUMBER SAVE 





o- 
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014302 


014440 


13-JUN-78 


005737 


000000 


10:30 


014440 


000001 
164300 
000644 
000001 
164262 


164254 
000644 


000001 
000646 


027346 
000646 


033354 
014234 


014440 


164266 


000644 


MACY11 30(1046) 


DATO: 


DATOA: 
DATOB: 
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EXTERNAL DATA INPUT FROM H/S READER (256 CHARACTER MAXIMUM) 


DOFL 


SEE IF SHOULD DO EXTERNAL INPUT 
:1F NOT: BR 

7 SET EXTERNAL FLAG 

CLEAR READER STATUS 


;CLEAR FOR USE AS CHARACTER FLAG 
START READER 

SEE IF DONE 

:IF NOT : BR 

CLEAR SAVE LOCATION 

SAVE CHARACTER 


SEE IF HAVE FOUND START CHARACTER 
IF SO : BR 

;SEE IF CHARACTER IS 0 

:1F SO : BR 

ZELSE SET CHARACTER FOUND FLAG 
sSAVE DATA SIZE 


:SAVE DATA SIZE 

:GO GET FIRST DATA CHAR 
;LOAD BUFFER 

7SEE IF READ ALL 

:IF NOT : BR 

3R1 = START OF WRITE BUFFER 
zR2 = SIZE OF DATA FIELD 
REPEAT LOAD OF DATA FIELD 
SEE IF DONE 


5 A a BR 
:SEE IF “oY OF DATA FIELD 


IF NOT 


ZELSE RESTART FILL 
SEXTERNAL DATA FLAG=1 IF ALREADY DONE 


SEQ 0076 


Oo—,4 


TMO3/TU4S DATA RELIABILITY PROGRAM 
13-JUN-78 10:30 


CZTURA.P11 


3456 014442 
3457 014446 
3458 014452 
3459 014454 
3460 014456 
3461 014460 


3465 014462 
3466 014464 


3470 014466 


3475 04 
3476 014506 
3477 014510 
3478 
3479 
3480 


3481 014512 
3482 014516 
eke 014520 


3488 014522 
3489 014526 


3493 014530 
3494 014534 


504 
3505 014562 
06 


012701 177777 
012702 002002 


000207 


005001 
000770 


012701 000001 
012702 004004 


000207 


012701 000376 


000261 
000765 


012701 052525 


000747 


012701 125252 


000744 


012701 125252 
072702 052525 
012704 001002 


000207 


mM 6 
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DAT1: 
DATIA: 
1$: 


DAT2: 


DAT3: 


DAT3A: 
1$: 


DAT4: 


DATS: 


DAT6: 


DAT?: 


18: 


SEQ 0077 
TALL ONES te eteerere 
MOV #-1,R1 


MOV #2002,R2 
MOV + oecte 


7R1=DATA 
;R2=WORD COUNT +2 
;LOAD BUFFER 


DEC ;SEE IF DONE 
BNE 1$ :1F NOT: BR 
RTS PC 

TALL ZEROSteeerecere 

CLR RI :RI=DATA 

BR DATIA [LOAD BUFFER 
SWALKING ONEtteeereete 

MOV #1,R1 :R1=DATA 

CLC 


MOV #4004 ,R2 
MOVB R1,(R3)+ 


sR2=CHARACTER COUNT+4 

;LOAD BUFFER 

SET NEXT CHARACTER 
DONE 


DEC R2 ;SEE IF 
BNE 1$ ;1F NOT: BR 
RTS PC 


SWALKING ZEROteeeereeee 

oat #376,R1 ;R1I=START OF DATA 
BR DAT3A ;LOAD BUFFER 
ALTERNATING ONE/ZEROtteeeeeere 

Ss ae ‘TOAD BUFFER 
ALTERNATING ZERO/ONEtttteeeeee 


MOV #125252,R1 zR1=DATA 
BR DATIA ;LOAD BUFFER 


SONE/ZERO IN ALTERNATING WORDStteteterere 


MOV #125252,R1 SET WORD 1 
MOV #52525 ,R2 SET WORD 2 
MOV #1002,R4 SET NUMBER OF ENTRIES 
MOV R1,(R3)+ LOAD WORD 1 
MOV R2,(R3)+ ;LOAD WORD 2 
R4 SEE IF DONE 
BNE 1$ :1F NOT: BR 
RTS PC 


o—- 
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CZTURA.P11 


014612 


014614 


014632 


014634 


014654 


014656 
014662 


014666 


014714 


13-JUN-78 10:30 


012702 


000207 


012701 


000207 


012701 
000137 


012702 


000207 


002002 
000001 


177400 


004004 


000377 
004004 


000377 
014446 


002002 
000376 


177400 


N 6 
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WALKING ONE/ALL ONE IN ALTERNATING CHARS**** 


#2002 ,R2 SET BUFFER SIZE 
#1,R1 ;SET WALK BASE 


#177400, (R3) ;LOAD ALL ONE BYTE 
R1,(R3)+ ;LOAD WALK BYTE 
WALK ONE 


D0 FULL BUFFER 


ZALL BITS O0-377eeeeeeerer 


R1I=STARTING DATA 
;R2=CHARACTER COUNT+4 
;LOAD BUFFER 

;BUMP DATA 

SEE IF DONE 

:1F NOT: BR 

; RETURN 


SALL BITS 377-Oeeeeereeee 


#377,R1 sR1=STARTING DATA 
3R2=CHARACTER COUNT+4 
LOAD BUFFER 
:BUMP DATA 
SEE IF DONE 
IF NOT: BR 
7 RETURN 


sALTERNATING CHARACTERS 0 AND 377teeeneenee 


MOV #377,R1 3R1 = DATA 
JMP DATIA ;LOAD BUFFER 


sWALKING ZERO/ALL ZERO IN ALTERNATING CHARS*#e2«% 


#2002 ,R2 SET BUFFER SIZE 
#376,R1 :SET WALK BASE 


R1,(R3) ;LOAD WALK BYTE 
#177400,(R3)+*  ;CLEAR HIGH BYTE 
e WALK ZERO BIT 
1$ FILL BUFFER 

; RETURN 


SEQ 0078 
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CZTURA.P11 13-JUN-78 10:30 SEQ 0079 
gece AUTO SEQUENCE PATTERNeteterece 
3558 014716 012702 000200 DAT15: MOV #200 ,R2 :SET NUMBER OF ENTRIES 
3559 014722 012701 014746 1$: MOV #APATS,RI SET START OF PATTERN 
3560 014726 012704 000010 MOV #10,R4 :SET SIZE OF PATTERN 
3561 014732 012123 2s: MOV (R1}+, (R3)+ sFILL BUFFER 
3562 014734 005304 DEC R4 7 SEE bd _DONE PATTERN 
3563 014736 001375 BNE 23 ;1f NOT: BR 
3564 014740 005302 DEC R2 See” TF “DONE BUFER 
3565 014742 001367 BNE 1$ IF NOT: BR 
sees 014744 000207 RTS PC [RETURN 
3568 014746 000000 APATS: 0 
3569 014750 177400 177400 
3570 014752 000377 7 
3571 014754 
3572 014756 177777 of 
3573 014760 000377 7 
3574 014762 177400 177400 
aero 014764 177777 
2A RANDOM DATA GENERATOR SUBROUTINE t#eeeeeeee 
3579 014766 013704 000556 DATR: MOV FACNT,R4 ;SET NUMBER OF FRAMES 
3580 014772 012703 027346 MOV #WDATA,R3 SET ADDRESS OF START OF BUFFER 
3581 014776 012701 177777 MOV #-1,R1 SET HIGH LIMIT 
3582 015002 005002 CLR R2 SET LOW LIMIT 
3583 015004 004737 023164 1$: JSR PC,RANG ;GO GENERATE NUMBER 
3584 015010 013723 000630 MOV RANSAV, (R3)+ ;LOAD BUFFER 
3585 015014 005204 INC R4 sSEE IF DONE WHOLE BUFFER 
3586 015016 001372 BNE 1$ :1F NOT: BR 
3587 015020 012737 000001 015030 MOV #1,RDFL SET RANDOM DATA FLAG 
3588 015026 000207 RTS PC 


sEXIT 
3589 015030 000000 RDFL: 0 ;RANDOM DATA SELECT FLAG 


¢ 7 
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CZTURA.P11 13-JUN-78 10:30 SEQ 0080 


FERRET AA EAA AAA AAE AEA AAARAEAATAAEAARAARAAAAAAAAAAKAAEE 


sCRC/LRC CHARACTER BUILD; 


THIS ROUTINE WILL CONSTRUCT AND SAVE THE Ng 
;CRC AND LRC CHARACTERS ACCORDING TO DATA AND 
;RECORD SIZE IF OPERATING IN NRZ MODE 


Seeteeereteerterereteretereeereeeeeeeeeteeeneeeneeeeetes 


015032 


015262 


013700 


000207 


000556 


027346 
015366 


015240 
015342 


000400 


177703 


177703 
000074 


015366 


015366 


000556 


027346 
015366 


015240 
015342 


015370 
015342 
015366 


000010 
000420 


015366 


015370 


015372 


000552 


CRCLRC: 
N 


CLO: 


CL2: 


B 
CLLAST: 
C 


FACNT,RO 
RO 


Pp 
PC,XOR 
R4 
CL2 
#400 ,R4 


R4,R5 
+ eae 
#177703 ,R5 
#74 ,R4 


XORS 
#177050,XORS 
R4 


#177727, 
R4,XORS 
XORS ,EXCRC 
FACNT,RO 


RO 
#WDATA,R1 
XORS 


PC,XOR 
XORS,EXLRC 
PC 

R4 

CLPE 
#10,UDES 
CLPE 
#420,R4 

R1 

PC 


SET RECORD SIZE 

SET START OF BUFFER 

GET CHARACTER 

7GO GET PARITY OF CHARACTER 
:XOR CHARACTER 

ROTATE 1 RIGHT 

7 1F NO CARRY: BR 

SET BIT NINE 


SAVE CHARACTER 


COMPLIMENT BITS 2,3.4,5 


:BRANCH IF NOT LAST CHAR 


:COMPLIMENT ALL BUT BITS 385 
SAVE EXPECTED CRC 


:D0 EXPT LRC 
:GET PARITY 
:XOR CHARACTER 


:D0 ALL FOR LRC 


:XOR CRC TO DATA 
sSAVE EXPT LRC 
;RETURN 

4m IF 0 CHAR 


NOT: BR 
SEE IF EVEN PARITY 
:1F NOT: BR 
SET 0 CHAR EVEN PARITY 


;BUMP POINT 
; RETURN 
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CZTURA.P11 13-JUN-78 10:30 SEQ 0081 


CLPE: - (SP) CLEAR WORLING SPACE ON STACK 
1$: R4 SHIFT DATA 

(SP) ;ADDUP # OF 1 BITS 

is ;BRANCH IF ALL O°'S LEFT 


)+,R4 


(R 
177400 1177460. RG 
(SP)+ BRANCH IF ODD # OF 1 BITS 


CLP2 
000010 000552 #10,UDES :SEE IF _SHOULD BE EVEN PARITY 
CLP3 :1F NOT: BR 


R PC ELSE EX XIT 
000010 000552 CLP2: #10,UDES SEE IF SHOULD BE ODD PARITY 
B CLP3 IF NOT: BR 
R PC sELSE EXIT 
000400 CLP3: #400 ,R4 SET PARITY BIT 
000207 RT PC 


010446 XOR: R4,-(SP) 
015366 XORS, (SP) 
R4,XORS :XOR SUBROUTINE: R4 WITH XORS 
(SP)+,XORS 
015366 XORS ,R4 
000207 PC 


015366 000000 XORS: :XOR SAVE 
015370 000000 EXCRC: EXPECTED CRC 
015372 000000 EXLRC: sEXPECTED LRC 
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CZTURA.P11 13-JUN-78 10:30 SEQ 0082 


FRRAERARAAA AAA AA AAAAAAAAE RE AAAERAEAAAARARAAAREERAAEKEEEE 


;DATA CHECK SUBROUTINE: 


: THIS SUBROUTINE IS USED TO COMPARE EACH CHARACTER 
:OF DATA READ FROM TAPE WITH THE EXPECTED CHARACTER. 
sANY ERROR DETECTED WILL CAUSE CONTROL TO BE 

PASSED TO AN ERROR PRINT SUBROUTINE AND A 

; SUBROUTINE TO ACCUMULATE THE NUMBER OF BITS 
:DROPPED AND PICKED UP FROM EACH CHARACTER. 

; THE NUMBER OF READ ERRORS IS ALSO ACCUMULATED. 
:DATA CHECKING MAY BE TERMINATED BY USE OF 

CONSOLE SWITCH THIRTEEN (13). 


SERA AAA AERA ATER AEE AEAAAAARAAEAERARARAEEHRERAAEEE 


015374 005037 000660 


000020 


027346 
033354 
000010 
000020 


002000 


000020 
177777 


000556 
027346 
010000 
000556 


000020 


000001 


000020 


015602 000241 


000552 


000552 
000552 
000552 


014276 


000562 


000552 


000556 


000552 


BBC 
DERFL 
FMCNT,RS 
#20,UDES 
DCHKO 

R5 
#WDATA,R1 


#10000. RDCMD 
DFO 

FACNT,R4 

R4 

#20,UDES 
DFOBO 


R4 
R4,R1 


R4,R2 
#1,FMCNT 
DFOA 
(R2)+ 
#20, wots 
DFOA4 


;CLEAR BAD RECORD CNTR 
CLEAR DATA ERROR FLAG 
;LOAD CHAR COUNT 

SEE IF CORE DUMP 

:1F NOT: BR 

sR5 = FC/2 

SET WRITE DATA ADDR 
SET READ DATA ADDR 


: SEE La ayy PARITY 


: IF WN B 
SEE. TF CORE DUMP PARITY 
O: BR 


sIF $ 

:SEE IF PE MODE 
:IF SO: BR 

SEE IF . CHAR 
:IF SO: 


; BUMP POINTER 
SEE IF DONE 


:1F NOT: BR 

ELSE CONTINUE 

SET 20 IN PLACE OF 0 

SET PATTERN GENERATE FLAG 


RESET CHAR CNT 
RESET DATA ADDRESS 
SEE IF READ REVERSE 
:1F NOT: BR 

:GET FRAME COUNT 
;SET TO WHOLE NUMBER 
SEE IF CORE DUMP 
:1F NOT: BR 


3SET TO FC/2 
sPOINT TO START OF WRITE DATA 
sPOINT TO START OF READ DATA 


SEE IF ODD FRAME COUNT 
:1F NOT: BR 
:BUMP POINTER 
:SEE IF CORE DUMP 
F NOT: BR 
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ib He 000001 


000001 
000001 


000001 


000660 


000660 
016522 
016006 


010000 000562 


000666 
000706 
000710 


000676 
010000 


001130 
001170 


000562 


016004 000207 


MACY11 30(1046) 


F 
22-JUN-78 
#1,-(R2) 
DFOAO 
(R2) 


#1, (R2) 
DFOAI 


(R2) 


#1,(R2) 
DFOA2 


(R2) 


#1,(R2) 
DFOAS 


(R2) 

R2 
~(R1),-(R2) 
DF1 

BBC 

DF2 
(R1)+,(R2)+ 
DF1 


UNP ,R4 
#10000 ,RDCMD 
DF4 
DATER1(R4) 
DFX 
DEREV1(R4) 
PC 


7 
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SEQ 0083 


;SEE IF BIT 0 = 


F NOT: BR 


;POSITION BITS FOR REVERSE CORE DUMP 


RESET POINTER 

TEST DATA CHARACTER 

:1F NOT GOOD: BR 

CLEAR BAD RECORD COUNTER 


CHECK DATA 
:1F BAD: BR 
:CLEAR BAD RECORD CNTR 


:GO GET DROPS AND PICKS 
:GO DO PRINT 
;BUMP CHAR CNTR 


:IF DONE ALL: BR 

;SEE IF READ REVERSE 
:1F NOT: BR 

ELSE CONTINUE READ REV 
;CLEAR HEADER FLAG 


:SEE IF HAD DATA ERROR 


:1F NOT: 


:1F NOT DATA ERROR ONLY: BR 


SEE IF READ REVERSE 
:1F SO: BR 
;BUMP DATA ERROR FORWARD COUNTER 


erty REVERSE DATA ERROR 
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FRR REAR A ARATE AAA AE AAA TEAR AAAAAAAAAARAARAAAEEEEE 


:DATA ERROR SUBROUTINE: 


; THIS SUBROUTINE IS USED TO PRINT OUT ANY 

sERRORS FOUND DURING THE DATA CHECK. 

EACH CHARACTER FOUND BAD WILL BE PRINTED 

7 IN BIT FORMAT ALONG WITH ITS EXPECTED CHARACTER. 

zAN ERROR HEADER CONSISTING OF THE UNIT NUMBER, 

;BLOCK NUMBER, RECORD NUMBER, SIZE OF RECORD, AND 
sERROR TYPE (READ FORWARD, READ REVERSE, WRITE, ETC) 
71S PRINTED ONLY ONCE FOR EACH RECORD FOUND BAD. 

:A COUNT IS MADE OF THE NUMBER OF SUCCESSIVE BAD 
CHARACTERS, AND IF TEN (10) SUCCESSIVE BAD CHARACTERS 
;ARE FOUND IN A SINGLE RECORD, A MESSAGE INDICATING 

:A BAD RECORD CONDITION IS PRINTED AND THE NEXT 

s TWENTY (20) CHARACTERS ARE SKIPPED BEFORE CHECKING 
71S RESUMED. IF THE BAD RECORD CONDITION IS FOUND 

: THREE TIMES IN A RECORD, ALL REMAINING DATA IS 
SKIPPED EXCEPT THE FINAL TEN (10) CHARACTERS. 

:THIS SKIPPING IS OF COURSE ONLY POSSIBLE IN 

RECORDS WHICH CONTAIN A SUFFICIENT NUMBER OF CHARACTERS. 
PRINTING OF ERRORS MAY BE DISALLOWED AT ANY TIME 

BY SETTING CONSOLE SWITCH TEN (10) TO A ONE. 

THE OPERATOR MAY CAUSE THE PROGRAM TO HALT ON ANY ERROR 
BY SETTING CONSOLE SWITCH FIFTEEN (15) TO A ONE. 


FERRARA EAA AEE AERA AERA AA AAERAEAAARAEREREAREAEREEEE 


016006 032777 002000 162574 DERR: #2000 ,aSWR :BRANCH IF NO ERROR 
B ERR4 PRINTOUT DESIRED 

000672 DERRO: SET PRINT FLAG 

000666 T ;SEE IF HAVE PRINTED HEADER 
:1F SO: BR 

022602 F PRINT CYCLE NUMBER 

024456 #MSG1,R4 ;LOAD ERROR MSG ADDR 
: TYPE MSG 

021036 PC,FRPRT :PRINT F OR R 

024475 DERROA: #ASG4,R4 
TYPE MSG 


R2,R3 
033354 _—— :POINT TO CHAR 


R 

010000 000562 #10000, RDCMD 7. ba READ REVERSE 
DERROB : BR 
a ‘GET. CHAR NUMBER 


COM 
DERROB: :PRINT CHAR NUMBER 
024463 #ASG2,R4 1 


YPE MSG 
010000 000562 #10000, RDCMD ;SEE IF READ REVERSE 
DERROC :1F NOT: BR 
GET CHAR 


D 
DERROC: ;LOAD EXPECTED DATA 
024234 DERROD: :GO PRINT CHAR 
016132 012704 024470 #SG3,R4 
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016136 000004 : TYPE MSG 
032737 010000 000562 #10000 ,ROCMD SEE IF READ REVERSE 
2 DERR1 :1F NOT: BR 
GET CHAR 


024234 : PC ,DOUT PRINT BAD CHAR 
010000 000562 #10000, RDCMD ;BRANCH IF NOT READ 

DERR4 ; REVERSE 

¢ (R1)+,(R2)+ RESET POINTERS 

000660 : BBC :BUMP BAD RECORD CNTR 
000010 000660 #10,BBC sSEE IF BLD BTH 

DEREX :1F NOT: BR 
002000 162372 a :SEE IF ‘PRINT INHIBIT 


3s1F SO: 

024611 #MSG15,R4 

i: TYPE MSG 
000660 H ;RESET BAD RECORD CNTR 
000660 ;POSITION BLD BTH AMOUNT 
000660 ;BUMP AMOUNT 
000003 000660 +m Zs = 3 BLD BTHS 

NOT 
000660 BBC ‘REPOSITION BBC 
177767 #177767,R5 ;SEE IF ON LAST EIGHT CHARS 
DERR6 :1F SO: BR 

177767 #177767,R5 :SET CHAR CNTR TO 8 
010000 000562 #10000, RDCMD 41% S — REVERSE 

: NOT: 
027346 :GET START OF BUFFER 
033354 e :GET START OF BUFFER 
000010 
000010 ;POINT TO START +10 
000001 000556 ;SEE IF ODD FRAME COUNT 

:1F NOT: BR 

;BUMP POINTER 


B DEREX 
000556 000644 DERR4A: : tne Ce ;LOAD CHAR COUNT 


TEMP1 
000644 #10, TEMP1 POINT TO BUFFER -8 
TEMP1,R1 :POINT TO NEXT CHAR 
#WDATA,R1 :POINT TO NEXT WRITE CHAR 
TEMP1,R2 POINT TO END OF READ DATA -8 FORWARD 
033354 #RDATA,R2 :POINT TO NEXT CHAR 
B DEREX sEXIT 
000660 DERR4B: 4 BBC ;REPOSITION BBC 


000024 #24,R5 sSKIP 20 CHARS 

DERR6 :1F EXCEED RECORD SIZE: BR 
010000 000562 #10000, ROCMD ;SEE IF READ REVERSE 
DERRS NOT: BR 


000024 
000024 SRESET POINTERS 


B 
000024 : :SKIP 20 CHARS 
016444 062702 000024 #24 ,R2 :SKIP FORWARD 20 CHARS 
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016450 000402 
177777 
162126 


000672 
002000 162106 
016016 
000672 


000706 
016520 000207 


MACY11 30(1046) 


DERR6: 
DEREX: 


J 
DEREX1: 
I 
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SEQ 0086 


DEREX 

#-1,R5 :SET TO EOR 

aSwR ;BRANCH IF NOT HALT ON ERROR 
DEREX1 

PFLG 7SEE IF PRINTED 

DEREX1 :IF SO: BR 

seep aSwR SEE IF _SHOULD PRINT 
DERE :1F NOT: BR 

DERRO. 7 ELSE PRINT 

PFLG ZCLEAR FLAG 

DERFL ;BUMP DATA ERROR FLAG 
PC ; RETURN 
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016522 005037 000644 


000722 
000720 
010000 000562 


000644 
000646 
016622 
017042 


000644 
000646 


000010 000712 
000001 


000650 


162032 
162026 


002000 161706 


022602 
017106 


162000 
161774 


016730 032777 002000 161652 
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DRPK: 


DROP: 


DPC: 


DOPCG: 
DPCO: 


SEQ 0087 


FERRARA AEA EA AAA RET EA AREA AERERAAEARARAAAKKKAKEKE 


;DROPS AND PICKS SUBROUTINE: 


THIS SUBROUTINE IS USED TO ACCUMULATE FROM 

EACH BAD DATA CHARACTER FOUND THE NUMBER 

OF BITS WHICH WERE EITHER DROPPED OR PICKED UP. 
;TWO COUNTERS PER SLAVE ARE USED TO ACCUMULATE THIS 
; INFORMATION AND CAN STORE UP TO 32K DROPS 

:OR PICKS BEFORE OVERFLOWING. IF OVERFLOW IS 
;ABOUT TO OCCUR, THESE ACCUMULATORS ARE 

PRINTED IN OCTAL AND RESET TO ZERO. 

; THE CONTENTS OF THE ACCUMULATORS MAY BE 

DISPLAYED AT ANY TIME BY SETTING CONSOLE 

;SWITCH FOURTEEN TO A ONE (1). THE PRINTOUT WILL OCCUR 
:AT THE END OF THE CURRENT BLOCK CYCLE. 


FERRER EAA AEE EEE EERE AREER AERA AERERAEEEAKKKKEEK 


TEMP1 

TEMP2 

TEMPS 

(R1), TEMP 
(R2), TEMP2 
UNP ,R4 
PIK1(R4) ,BPKP 
DRP1(R4),BDPP 
#10000, ROCMD 
DRPK 


~(R1),-(R2) 
(R1)+, TEMP1 
(R2)+, TEMP2 
PC DROP 
PC,PICK 

PC 


;LOAD GOOD CHAR 
;LOAD BAD CHAR 


SEE IF READ REVERSE 
:I1F SO: BR 

:POINT TO CHAR 

;LOAD GOOD CHAR 
;LOAD BAD CHAR 

GET DROPS 

GET PICKS 

- T 


GOOD CHAR 
BAD CHAR 
:GET Hy “Stns 


;SET NUMBER TO CHECK 

SEE IF DROPPED OR PICKED THIS BIT 
:1F NOT: BR 

:SEE IF ON PICKS 


:1F SO: BR 

;BUMP DROP CNTR 

:1F NO OVERFLOW: BR 

SEE IF HAVE PRINTED DATA 
:1F SO: BR 


[PRINT CYCLE NUMBER 
:PRINT DROPS AND PICKS 


DPC2 
#2000,aSWR 
DPCOA 
PC, PAPRT 
PC ,DPPRT 
DPC2A 
aBPKP ;BUMP PICK CNTR 
aBPKP SEE IF OVERFLOW 
:1F NOT: BR 


DPC2 
#2000, aSwWR SEE IF HAVE PRINTED DATA 








ao, 


tn pa DATA RELIABILITY PROGRAM 
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016736 


017242 


13-JUN-7 
001402 


000207 


022602 


000010 


000712 


000712 
000002 
000002 
016646 


000676 


016632 
025107 
000676 


161536 
000712 
000002 


000010 
025120 


161500 
000712 
000002 


000712 


000722 
000720 


000722 
000720 


000650 


000720 
000722 
000720 
000722 
000712 


000720 
000712 


000722 


MACY11 30(1046) 


DPPRTO: MOV 


DPPRT1: 


DPPRT2: 


DPPRTX: 


kK 7 
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DPCIA :IF SO: BR 
PC, PAPRT PRINT CYCLE NUMBER 
PC ,DPPRT PRINT DROPS AND PICKS 


UNP ,R4 
DRP1(R4),R3 ;SET DROP POINTER 
PIK1(R4),R4 3SET PICK POINTER 
#10,BCNT :SET NUMBER OF BITS 
3 ;CLEAR DROPS 

;CLEAR PICK 

3SEE IF DONE 

;1F NOT: BR 

EXIT 


GET NEXT BIT 
SEE IF DONE 


; CONTINUE 

; RETURN 
UNP ,R4 :GET UNIT POINTER 
PIK1(R4),BPKP ;SET PICK POINTER 
DRP1(R4),BDPP ;SET DROP POINTER 
TEMP1,R4 :R4 = GOOD CHAR 
TEMP2 ,R3 :R3 = BAD CHAR 
#1, TEMPS SET PICK FLAG 
PC,DPC Fagg PICKS 


PC : 
#ASG26 ,R4 

: TYPE MSG 
UNP,R4 


DRP1(R4), BOPP ;SET DROP POINTER 
PIK1(R4),BPKP ;SET PICK POINTER 
#16,BDPP 

#16,BPKP 

#10,BCNT ;SET NUMBER TO PRINT 


@BDPP RS 

PRINT DROPS 

SEE IF DONE 

:1F NOT: BR 

:BUMP POINTER 

:CONTINUE FOR ALL 8 BITS 

7SET NUMBER TO PRINT 
#MSG27,R4 

: TYPE MSG 


@BPKP,R3 
PRINT PICKS 
BCNT SEE IF DONE 
DPPRTX :1F SO: BR 
#2,BPKP ;BUMP POINTER 
DPPRT2 ;CONTINUE FOR ALL 8 BITS 
PC ; RETURN 


SEQ 0088 
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CZTURA.P11 


017244 


017410 


13-JUN-78 


013703 


001441 


10:30 


000556 
000001 


000020 


000010 
010000 


033354 
000002 


033354 
027346 
021012 


000007 
021014 


161126 


021014 
000010 


161106 


000552 


000674 
000562 


000674 


ee 
MACY11 30(1046) 22-JUN-78 09:14 PAGE 89 


ERO: 


EROB: 


ER2A1: 


ER2A: 


FRR AE AAA AEA REE AAA AAAAREAREAAAEAKEREAAKEAREEE 


STATUS CHECK SUBROUTINE: 


THIS SUBROUTINE IS USED TO PERFORM A CHECK OF 

;BOTH THE MASSBUS CONTROLLER (RH11) AND THE TAPE 
;CONTROLLER (TMO3). THE RH11 IS CHECKED FOR ERRORS 

sAS REFLECTED IN REGISTERS CS1 AND CS2 AND ALSO THAT 
THE BUS ADDRESS (BA) AND WORD COUNT (WC) ARE 

sCORRECT. THE TMOS IS CHECKED FOR DRIVE STATIS (DS), 
sDRIVE ERRORS (ER), AND PROPER FRAME COUNT. THE SPECIAL 
CHECK CHARACTERS (CRC+#LRC) ARE ALSO CHECKED WHEN 
sAPPROPIATE (IE: NRZ READ OR WRITE). CERTAIN TYPES 

:OF DRIVE ERRORS IN PE OPERATION WILL BE ACCOMPANIED 
BY THE DISPLAY OF THE DEAD TRACK REGISTER (CC). THESE 
:TYPES ARE ER BITS 15,10,7,6. THE PRINTOUTS OF BAD 
:CRC,LRC,FC, AND BA WILL SHOW BOTH THE EXPECTED AND 
RECEIVED VALUES (IE: EXPT-RCVD). ONLY THOSE REGISTERS 
sWHICH ARE IN ERROR WILL BE PRINTED AND ALL PRINTOUTS 
sARE IN OCTAL FORMAT WITH NO LEADING ZEROS. AS IN 
sDATA ERRORS, STATUS ERRORS ARE PRECEEDED BY HEADER 
DESCRIBING THE HARDWARE UNDER TEST, THE BLOCKING 

; INFORMATION, AND THE ERROR TYPE. 


PRR AERAAAAAE AAA AAAA ER AEAAAAAAEAAAAAAAAAAEKAAKEAREEEE 


FACNT,R3 sGET FRAME COUNT 
#1,R3 ;SEE IF ODD 
7 IF NOT: BR 
;BUMP COUNT 


:SEE IF CORE DUMP 
: IF NOT: BR 

SET TO FC/2 

:SEE IF WRITE OP 
:1F SO: BR 


ER1 

#10000, RDCMD 
EROA 
#RDATA,R3 

= a SET POINTER 

a ;BUILD EXPT READ ADDRESS 


#WDATA,RS ;BUILD EXPT WRITE ADDRESS 
SAVE ADDRESS 


CLEAR FLAGS 


7 SEE If ADDRESS OK 
:IF SO: BR 


SET BUS ADDRESS ERROR 
SEE IF WRITE OPER 

:1F NOT: BR 

sSEE IF FC=0 

:1F SO: BR 


SEQ 0089 
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CZTURA.P11 
017412 


017712 


13-JUN-78 10:30 
005237 021022 
000040 

000700 

000556 

161046 

021022 

002000 

010000 

000002 

000001 

160000 


160770 
000307 


000700 
001000 
060000 
000700 


160730 
000010 


000100 
001000 


021016 
040000 


000700 


160660 
000010 


000100 
001000 


021020 
002000 


020000 


032737 000040 


000674 


000552 


000562 


160766 


000552 


160672 


000552 


000552 
160700 
000674 
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SEQ 0090 


FCER 

ER3 
#40,MTC1 
ER2A 

TMFLG 

ER2D 
FACNT,RS 
R3 

R3,aFC 

ER3 

FCER 

ERS 

#2000 ,UDES 
ER2A 
#10000, RDCMD 
ER2E 


;SET FC ERROR 

sSEE IF SPACE OPER 
:1F SO: BR 

;SEE IF TM TIME 
;1F SO: BR 


3R3_ = EXPT RECORD SIZE 
;SEE IF FC = EXPT 


:1F SO: BR 
SET FC ERROR FLAG 
sSEE IF PE 


:1F SO: BR 
:SEE IF READ REVERSE 
:1F SO: BR 


LOOK FOR EXPT = 2 


:GO CHECK FC FOR TM 
SEE IF COUNT ERROR 


GET CONT STATUS REG 

nets os -OR,UNIT NO. & SEE IF OTHER ERRORS 
;SEE IF TAPE MARK TIME 

:1F NOT: BR 
;MASK MISSED TRANS & BR IF OTHER ERRORS 


;SEE IF EITHER TRE OR MCPE 
IF NOT: BR 

:SEE IF TM TIME 

:1F NOT: BR 

:GET ERROR REGISTER 

SEE IF EVEN PARITY 

:1F NOT: BR 

zMASK PAR 

sMASK FCE 

:1F NO ERRORS EXCEPT FCE: BR 


SET CONT ERROR FLAG 
—s ERROR 


T: B 
TAPE MARK TIME 
T: BR 


ER2C 
#160000,aC1 
ER4 
acs,R3 
#307,R3 
ER3A 
TMFLG 
ER38 
#1000,R3 
ER38 
#60000,aC1 
ER4 


R 
4 ys PARITY 


Me 
TMASK OUT oo A —— IF 
;NO OTHER ERR 
:SET DRIVER ERROR FLAG 


c1F IN PE MODE: BR 

SEE IF NO DATA CHECK 

:I1F NOT: BR (ALLOW READ OF UNKNOWN TAPES) 
SEE IF WRITE OR READ OP 


DRVER 
#2000,UDES 
ERPT 
#20000, aSwR 
ERPT 
#40,MTC1 
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017720 001461 ERPT :1F NOT: BR 
000700 TMFLG SEE . “TAPE MARK TIME 
ER6A :1F NOT: BR 
015370 021034 EXCRC,CRCSV 7 SAVE CRC 
021032 ote: SAVE LRC 
015372 M #23, EXLRC SET CRC/LRC FOR TM 
000060 000552 : #60,UDES SEE IF FORMAT 14 
ERPT :1F NOT: BR 
160536 acc,R3 :GET CRC CHARACTER 
177000 #177000,R3 
015370 
:1F CRC GOOD: BR 


ER 
021026 SET ERROR FLAG 
160520 : : :GET LRC 


000400 B 
177000 : #177000, R3 
015372 C EXLRC,RS 
:1F LRC GOOD: BR 


ERPT 
021030 R3,ACTLRC ;SAVE ACTUAL LRC 
021024 LRCER ;SET LRC ERROR FLAG 
010000 000562 #10000, RDCMD 7SEE IF READ REVERSE 
ERPT :1F NOT: BR 
021024 C ZELSE CLEAR LRC ERROR 
000006 : 
000710 C ;CLEAR ERROR FLAG 
000724 
021014 
;SEE IF ANY ERROR 
SO: BR 


020746 J 
000710 : ;SET ERROR FLAG 
160374 000724 é i SAVE ERROR REGISTER 
002000 160450 : :SEE IF PRIN 

ERPTO ;1F SO: BR 
000002 000714 : SEE IF READ RETRY 


:1F 
000704 
R3 ;BUMP RETRY COUNT 

000604 7 SEE If LAST RETRY 

B ERPTO :1F SO: BR 
000002 021020 ERPTG1: i SEE IF TM STATUS ERROR 

BE 0 :1F SO: BR 
020626 


ERPTO: 
J 4 :PRINT HEADER 
000654 EMADOR ,R4 
; TYPE MSG 


021036 PC,FRPRT PRINT F OR R 
000700 TMFLG 
020230 001407 ERPT1 
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020232 


020512 


13-JUN-7 
022737 


005737 


026045 
026063 
021016 
024737 
160220 
024764 
160214 
021020 
024772 
160174 
024777 
160162 
021014 
024752 
160130 
000255 
021012 
021022 
024757 
160070 
024745 
160050 
021026 
026110 


160044 
177000 


000255 
023756 
015370 


021024 


000654 


000640 


000640 


MACY11 30(1046) 


ERPT1: 


ERPT2: 


ERPT3: 


ERPT4: 


ERPTS: 


ERPTSA: 
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#ASG54 ,EMADDR 
ERPT1 
#ASG56,R4 
CONER 
ERPT2 
#ASG23,R4 
aci,R3 
#ASG23D ,.R4 
acs,R3 
DRVER 
ERPT3 
#MSG23E ,R4 
ads ,.R3 
#ASG23F .R4 
@ER,R3 
BAER 

ERPT4 
#ASG23B,R4 
@BA,R3 
#255,TOB 
PC,TOG 
CADER ,R3 
FCER 

ERPTS 
#MSG23C .R4 
aFC,R3 
#ASG23A,R4 
awC ,R3 
CRCER 
ERPTSA 
#MSG58,R4 
acc,R3 
#177000 ,R3 
#255, T0B 
PC,TOG 
EXCRC,R3 
LRCER 


PRINT TA 
: TYPE MSG 


7 IF NO CONT ERROR: BR 
; TYPE MSG 

sPRINT CONTROL ' 
sPRINT CS TAG 

TYPE MSG 

;PRINT CONT STATUS 
:1F SO DRIVE ERROR: BR 
s TYPE MSG 

sPRINT DRIVE STATUS 

; TYPE MSG 

sPRINT DRIVE ERROR 
;1F NO BA ERROR: BR 

; TYPE MSG 

PRINT BUS ADDRESS 
sPRINT / 

;PRINT EXPT BUS ADDRESS 
71F NO FC ERROR: BR 

s TYPE MSG 

PRINT FRAME COUNT 

i TYPE MSG 

sPRINT WORD COUNT 

:1F NO CRC ERROR: BR 
i TYPE MSG 


PRINT ACTUAL CRC 


PRINT EXPECTED CRC 


SEQ 0092 
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020516 001416 ERPT6 :1F NO LRC ERROR: BR 
026116 #ASG59,R4 
: TYPE MSG 


021030 0 ACTLRC,R3 
PRINT ACTUAL LRC 


000255 000640 MOV #255, T0B 
023756 PC,TOG 
015372 “- EXLRC,R3 
021020 3 : T DRVER 


ERPT?7 
002000 000552 #2000 ,UDES 
ERPT7 


PRINT EXPECTED LRC 

:1F NO DRIVE ERROR: BR 
IF NO PE: BR 

157726 


@ER,R4 
075477 #75477 ,R4 MASK OUT ALL BUT BITS 15,10,7.6 
ERPT? :1F NO CONDITIONALS SET: BR 
025011 #ASG23H,R4 
: TYPE MSG 


157712 acc,R3 
177000 Ic #177000,R3 MASK CC 
PRINT CHECK CHARACTERS 


157756 : asuR ;BRANCH IF NOT HALT ON ERROR 


000672 PFLG 4ey IF — PRINTED 


ERPX IF SO: B 

002000 157736 #2000,aSWR ;SEE IF SHOULD PRINT 
ERPX :IF NOT: BR 

020202 J PRINT ERROR 

000672 : 

000566 T BRANCH IF CRC ERROR 
1$ CORRECTION DESIRED 

000040 157620 ELSE INIT 

000550 157612 : RESET DRIVE NUMBER 


2 
000011 157572 : DRIVE CLEAR 


CLEAR AS 
000510 


R4 
000100 #100, (R4) sRESET TRE 
000552 157574 2$: UDES ,aTC sRESET TC 
000040 000674 : #40,MTC1 
ERPX2 :1F NOT READ/WRITE OP: BR 
000700 TMFLG 
ERPX2 :1f NOT TM TIME: BR 
002000 000552 “yh Sapa + ECK UDES 
X 
021034 015370 CRCSV,EXCRC RESTORE CRC 
021032 015372 igendeimmaine sRESTORE LRC 


sEXIT 
sEXPT ADDRESS SAVE 


021020 000000 
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CZTURA.P11 
021022 


021034 


021070 


13-JUN-78 


000000 
000000 
00000 


0 

000000 
000000 
000000 


032737 


000207 


000010 000674 


024645 
000002 000674 


024642 
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FCER: 
LRCER: 
CRCER: 


ACTLRC: 


LRCSV: 
CRCSV: 


FRPRT: 


FRR A RARE AEE AAAAAAAAAAAAREAAAAAAARAAERAEAREAKEKEEE 


;F FOR FORWARD/R FOR REVERSE PRINT SUBROUTINE: 


THIS SUBROUTINE IS USED TO PRINT OUT THE 

; TAPE DIRECTION USED WHEN ANY ERROR IS 
DETECTED IN STATUS OF READ OR WRITE, DATA, OR 
; SPACING OPERATIONS. 


FERRARA AERA EAE EERE TEA AEREREAAAEREAREAAAAAEAEAEEEEE 


#10,MTC1 7 SEE If WRITE COMMAND 
2s SO: BR 


IF 
#MSG17,R4 7 SET 0 TYPE REVERSE MSG 
—— ;BRANCH IF REVERSE 


#MSG16,R4 SET FORWARD MESSAGE 
TYPE MSG 
PC sEXIT 


SEQ 0094 
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FERRARA AAA TEA AERA AAA AE AREA AAAAAAAAEAREKAAAARAAAEE 


: TAPE COMMAND EXECUTE SUBROUTINE: 


;THIS SUBROUTINE IS USED TO EXECUTE THE 
;MAG TAPE COMMAND DESCRIBED BY THE READ 
OR WRITE ROUTINE. THE FINAL COMMAND IS 
SENT TO THE DEVICE REGISTER ALONG WITH THE 
; INTERRUPT ENABLE AND GO BITS. 
ONCE THE COMMAND IS ISSUED, AN INTERRUPT 
TIMER IS STARTED AND IF NO INTERRUPT IS RETURNED 
;BEFORE TIME OUT OCCURS, AN ERROR WILL BE 
PRINTED AND THE PROGRAM STOPPED. TESTING MAY 
BE RESUMED BY PRESSING THE CONTINUE SWITCH. 
TWO INTERRUPT HANDLERS ARE USED, ONE FOR MAG TAPE 
AND ANOTHER FOR TELETYPE (TTY). 
;UPON RECEIPT OF A MAG TAPE INTERRUPT, HOUSEKEEPING 
31S PERFORMED AND CONTROL RETURNED TO THE CALLING 
ROUTINE (READ, WRITE ,ETC). 
RECEIPT OF A TTY INTERRUPT WILL CAUSE THE 
PROGRAM TO CHECK FOR ENTRY OF A CNTRL C CHARACTER. 
IF NOT CNTRL C, THEN CONTINUATION OF WAIT FOR MAG 
; TAPE INTERRUPT IS RETURNED. IF, HOWEVER, THE TTY 
: INTERRUPT WAS CAUSED BY ENTRY OF A CNTRL C, 

;THEN AT THIS TIME REQUESTS FOR NEW STALL VALUES 
zARE PRINTED AND THE RESPONSES ENTERED. RESUMPTION 
:OF TAPE INTERRUPT WAIT IS THEN RESUMED. 


FRA AERA EAA AEA AA AAA AEA AAAEREAAAAEAAAREAKEEKEEE 


021072 005037 000644 : TEMP1 
000550 DVN,aCS SET DRIVE NO. 
010000 : #10000,aDS SEE IF HAVE MOL 
TAPG3 :1F SO: BR 
000644 :SEE IF TIMED OUT 
;WAIT FOR READY 

022602 PRINT CYCLE NUMBER 
000010 000674 SEE IF WRITE OP 


:1F NOT: BR 
024502 #ASG5,R4 
: TYPE MSG 
TAPG2 


024507 : #MSG6,R4 

; TYPE MSG 
021036 PC, FRPRT sPRINT F OR R 
025067 : #MSG25,R4 

: TYPE MSG 


020000 157324 : #20000,aDS SEE IF PIP RESET 
TAPG3F :1F SO: BR 
022602 PC, PAPRT :PRINT HEADER 
027173 #SG116,R4 
: TYPE MSG 


020000 157302 1$: #20000,a0S 
1$ sAWAIT PIP RESET 


B 
000026 000674 TAPG3F: #26,MTC1 SEE IF WRITE TM 
021230 001003 B TAPG3A :1F NOT: BR 
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CZTURA.P11 
021232 


021500 


13-JUN-78 


012704 


000137 


10:30 
177777 


000556 
000001 


000020 


157212 


000570 
000040 
000003 


000030 


177740 
000101 


000674 
157200 
000644 
000644 
000670 


000340 
002000 


022602 
000654 


021036 
025047 


157114 


021736 


000552 


157202 
157202 
000674 
157174 


000670 
000674 


157106 


157152 
157146 


MACY11 30(1046) 


TAPG3A: 


TAPG3B: 


TAPGSC: 


TAPG3D: 


TAPG3E: 
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#~-1,R4 ELSE SET FC FOR -1 
TAPG3B 

FMCNT,R4 

#1,R4 

TAPG3B 

R4 


R4 SET WC = FC/2 FOR NORMAL FORMAT 
#20,UDES SEE IF CORE DUMP FORMAT 
TAPG3C :1F NOT: BR 


R4 sSET WC = FC/4 FOR CORE DUMP 
R4 ,awc ;SET WORD COUNT 
s;DRIVE CLEAR 
RESET FC LOADED 
SEE IF INTERCHANGE READ 
:1F NOT: BR 
7SEE IF READ OP 
:1F NOT: BR 
7 SET INTERCHANGE READ MAINT. MODE 
GET COMMAND 
#177707, R4 :MASK OP CODE 
#30,R SEE IF SPACE OP CODE 
TAPGSE :1F SO: BR 
#-40,STAL :SET INTERRUPT DELAY MULT TO 40 
#101,MTC1 7SET INTERRUPT ENABLE AND GO 


MTC1,aC1 EXECUTE COMMAND 
aPsw ;CLEAR PRIORITY 


;SEE IF HAVE TIMED OUT 
NOT: BR 


3D0 TIME DELAY MULTIPLIER 
P ;RESET PRIORITY 
#2000 ,aSWR :SEE IF SHOULD PRINT ERRORS 
TAPG6 71F NOT: BR 
PC,PAPRT :PRINT CYCLE NUMBER 
EMADDR,R4 
; TYPE MSG 


PC, FRPRT ;PRINT F OR R 
#MSG24,R4 
TYPE MSG 


aSwWR :BRANCH IF NOT HALT ON ERROR 
TAPG7 


MTINTA RETURN TO CALLING ROUTINE 


SEQ 0096 
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TTY INTERRUPT HANDLER 
017746 157104 : MOV aTKB,-(SP) GET CHARACTER 
000200 #200, (SP) STRIP PARITY BIT 
000003 abel ;BRANCH IF NOT C 


RESET ALL 1/0 
157056 aPSw CLEAR PSW 
000200 a#200 RESTART PROGRAM 
000061 : at BRANCH IF NOT A 


000176 000610 #SWREG, SWR BRANCH IF HARDWARE SWR IS INVOKED 
177570 000610 #177570,SWR : INVOKE HARWARE SWR 


023306 PC,.SAVE SAVE REGISTERS ON THE STACK 
027317 #MSG121, R4 TYPE ‘HARDWARE SWR IN USE' 


023330 PC,.RESTORE sRESTORE REGISTERS 
000007 : + Saat :BRANCH IF NOT G 


000176 000610 : #SWREG,SWR : INVOKE SOFTWARE SWR 
023216 ’ GET SWITCHES 
000002 : “8° :BRANCH IF NOT B 


023306 ° : SAVE a ON THE STACK 


014070 SET FLA 
013642 PC, TINP3SA :GO CHECK CRC CORRECTION 
000040 156742 oo BRANCH IF NOT YOZZLING 


025642 #MSG44,R4 a ca." YOZZLE STALL 


; TYPE M 
000602 YSTAL,R3 
PRINT PRESENT STALL 
000602 0 #YSTAL,R5 SET ADDRESS OF YSTL 
7,R1 ;SET NUMBER OF CHAR TO INPUT 
SET MAXIMUM LIMIT 
7SET MINIMUM LIMIT 
:GO GET VALUE 
023330 PC, .RESTORE RESTORE REGISTERS 
(SP)+ ;POP CHARACTER OF THE STACK 
011260 #YOZ, (SP) ;RETURN TO ‘YOZ' 


RETURN TO YOZ 
023330 : PC,.RESTORE 
: (SP)+ :POP CHARACTER OFF THE STACK 
021732 000002 ; RETURN 


cated :MAG TAPE INTERRUPT HANDLER 
000037 156570 MTINTA: BIC #37, amR :CLEAR MAINT MODE 


000664 MOV RTRN, (SP) SET RETURN TO (RTRN) 
021750 000002 RTI RETURN 


021734 000240 
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FERRARA AAA AERA AAA 


;AUTO SEQUENCE 


THIS ROUTINE ,ENTERED VIA STARTING ADDRESS 240 

sWILL EXERCISE ALL AVAILABLE SLAVES ON ALL AVAILABLE 
;DRIVES IN BOTH PE AND NRZ ACCORDING TO THE PRESELECTED 

; TEST PLAN. IF NRZ ONLY, PE TESTING WILL NOT BE ATTEMPTED. 


FERRARA AAA AAA ARATE AEE 


021752 012704 026615 #MSG104,,R4 


TYPE MSG 


000744 


#ASEQCE RS 
#2,R1 
#1 oR2 
#0,R3 
PC,TIR 
ADRVN 
PC,HRDS 


SET ADDRESS OF ENTRY 

SET SIZE OF ENTRY 

;SET UPPER LIMIT 

;SET LOWER LIMIT 

:GO GET INPUT 

;CLEAR DRV NUM 

:GO SELECT HARDWARE CONFIGURATION 


026546 #MSG101,R4 
026575 #MSG102,R4 
000740 V ADRVN,R3 

026604 #SG103,R4 


TYPE MSG 
TYPE MSG 
PRINT TMO3 
7 TYPE MSG 


000746 : ;POINT 2 teens OF SLAVE TABLE 


:SEE IF 
:1F SO: BR 


PRINT SLAVE TABLE 
D0 ALL 
3GO DO MODE 1(NRZ) 


(RO)+,R3 


ASEQ2 
022306 ASEQ3: PC,AMOD1 
022446 PC, AMOD2 :GO DO MODE 2(PE) 
000007 000740 ASEQ4: #7, ADRVN 7SEE IF DONE ALL DRIVES 
ASEQX :1F SO: BR 
000740 ADRVN :BUMP DRIVE NUMBER 
ASEQ1 ; CONTINUE 
000744 H ASEQCF ;SEE IF CONTINUOUS AUTO SEQ 
ASEQO :++B CONTINUE TESTING 
022116 000137 005004 TEND 
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aay A DATA matte PROGRAM 
URA.P11 10:30 


13-JUN-78 SEQ 0099 


; SUBROUTINE TO SELECT AUTO SEQUENCE HARDWARE*teeeeee 


022122 


022304 


005037 


000207 


005054 
000644 
000040 
000740 
010000 
022072 


000746 
003040 


000006 
000740 
156316 
010000 
000644 


000010 
000644 


000644 
000644 
000644 
177777 


156360 
156352 
156344 


000041 


156270 


005054 
005054 


ADRVN, acs 
#10000,acs 
2$ 


(SP)+ 
ASEQ4 

RO 
#UN1,R1 
CHNFLG 
3$ 
#60841 
3$ 

ADRVN 

3$ 

RO 
RO,aTC 
#10000,aDS 
4$ 

TEMP1 
RO, (R1)+ 
RO 
#10,R0 
3$ 

TEMP1 

1$ 
TEMP1,REOTC 
TEMP1 


TEMP1 ,REOTC 
#-1,(R1) 
PC 


CLEAR EOT UNIT CNTR 


: INIT 

SET DRIVE 

TEST FOR NON-EXISTANT DRIVE 
:1F DRIVE AVAIL: BR 

RESET STACK POINTER 

:GO SEE IF TRIED ALL DRIVES 


sSET START OF SLAVE TABLE 
;BRANCH IF NOT IN CHAIN MODE 


BRANCH IF NOT LOADED VIA TMDP 
BRANCH IF NOT DRIVE 0 
:D0 NOT TEST SLAVE 0 


:SELECT SLAVE 

SEE IF _SLAVE AVAIL FOR TEST(MOL) 
:1F NOT: BR 

:SET SLAVE FOUND FLAG 


:LOAD SLAVE TABLE 
STEP TO NEXT SLAVE 
;BRANCH IF ALL SLAVE NOT DONE 


; SEE i _FOUND ANY SLAVES 
:1F NOT: BR 
:SET NUMBER OF UNITS 


SET EOT CNTR 
TERMINATE SLAVE TABLE 
;RETURN TO SEQ 
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; SUBROUTINE TO SELECT NRZ AUTO TEST MODEttereeneene 


022306 005037 000656 : ai F sASSURE BLOCK COUNTER IS 0 
#UN1 GET START OF SLAVE TABLE 
: 11700, (R1)+ SET ALL SLAVE TO NRZ,NORM,ODD 
177777 " 2 (R1) ;LOOP UNTIL REACED END OF TABLE 


005070 PC ,RWNDA :GO REWIND ALL AVAIL SLAVES 
000742 #50, ABLCNT SET NUMBER OF BLOCKS FOR MODE 1 
000556 #-4000, FACNT SET FC = 4000 
000554 #100,RCNT SET REC CNTR = 100 
000550 ADRVN,DVN SELECT DRIVE 
000560 #1,PATRN :SELECT PATTERN 1 
TMEX ASSURE NO TMK 
INTRF ASSURE NORMAL READ 
PC,STAUTO :GO DO AUTO MODE 1 
000560 #10,PATRN sSELECT PATTERN 10 
PC,STAUTO :GO DO PATTERN 10 
000560 #14,PATRN sSELECT PATTERN 14 
J PC,STAUTO 
000560 3$: #-1,PATRN ;SELECT AUTO RANDOM DATA 
003346 J PC,STAUTO 
022444 000207 PC RETURN TO SEQ 
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022446 005037 000656 
000746 
001700 
002300 


177777 


005070 

000742 
000556 
000554 
000560 


000560 
000560 


000742 
000560 
003346 


4595 022600 000207 
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AMOD2: 


1$: 


3$: 
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SEQ 0101 


; SUBROUTINE TO SELECT PE AUTO TEST MODEteteeeenee 


BLCNTR 
#UN1,R1 
#1700, (R1) 
#2300, (R1)+ 
#-1,(R1) 

1$ 


PC,RWNDA 
#6, ABLCNT 
#-4000,FMCNT 
#100, RCNT 
#10,PATRN 
PC,STAUTO 
#14,PATRN 
PC,STAUTO 
#15,PATRN 
PC,STAUTO 
#-1,ABLCNT 
#-1,PATRN 
PC,STAUTO 
PC 


;CLEAR BLOCK CNTR 

SET START OF SLAVE TABLE 
CLEAR NRZ 

;SET TO PE NORM, ODD 
;LOOP UNTIL END OF TABLE 


REWIND ALL SLAVES 
SET AUTO BLOCK COUNT 
SET FC = 4000 

SET REC CNTR TO 100 
;SELECT PATTERN 10 
:GO DO AUTO SEQ 
sSELECT PATTERN 14 


SELECT PATTERN 15 


:FORCE TO END OF TAPE 
>SELECT AUTO RANDOM DATA 


;RETURN TO SEQ 
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FRR AE RAAT AEE REET E REAR AAAAAAARAAAAAAKKKEEE 


ERROR HEADER PRINT SUBROUTINE: 


THIS ROUTINE IS USED TO PRINT OUT A HEADER 

WITH EACH ERROR MESSAGE. THE PRINT IS IN TWO 

LINES AND CONTAINS THE FOLLOWING INFORMATION. 

s:LINE 1: DRIVE NO. SLAVE NO. DENSITY PARITY FORMAT 

sLINE 2: CURRENT BLOCK NUMBER, RECORD NUMBER IN 

sWHICH THE ERROR OCCURED PLUS THE TOTAL NUMBER 

:OF RECORDS IN THIS BLOCK, THE RECORD SIZE (NUMBER 

:OF CHARACTERS), AND THE ERROR TYPE (READ,WRITE, SPACE, ETC) 
PLUS THE TAPE DIRECTION (FORWARD OR REVERSE). 

ALL NUMBERS ARE IN OCTAL. 


eee S ESS isi cil titiietitiiiititiiiiiititiititi titi iit) 
022602 012704 024560 #MSG12,R4 
0226 T 
000550 V DVN,R3 
024544 V #MSG11,R4 


000552 UDES,R3 
177770 BIC #177770,R3 


026124 #MSG60,R4 
000552 UDES ,R3 
177770 BIC 1177770,R3 
026130 #SG61,R4 


: TYPE MSG 
PRINT DRIVE NUMBER 
TYPE MSG 


PRINT UNIT NUMBER 


: TYPE MSG 


PRINT DENSITY 
TYPE MSG 


R3 
000010 000552 $10,UDES 
PAPRIO 
000001 MOVs #1, R3 
PAPRTO: PRINT PARITY 


026134 MO #ASG62,R4 
000552 UDES ,R3 


TYPE MSG 


7 :PONTION FORMAT 
177760 Ic #177760,R3 
PRINT FORMAT 
024521 0 #ASG8,R4 
: TYPE MSG 
000400 155634 #400 ,aSwWR SEE IF RANDOM DATA 
E ;1F NOT: BR 


B : 
000122 000640 PAPRTA: 
023756 JS ;PRINT R 


BR 
022772 005737 000736 PAPRTB: TST SEE IF AUTO SEQ 
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022776 001403 PAPRTC ;1F NOT: BR 
0230 0 000560 PATRN : SEE TF “AUTO RANDOM 
PAPRTA :1F SO: BR 
000560 PAPRTC: MOV PATRN,RS 
024576 PAPRTD: MOV #ASG13,R4 


000656 MOV BLCNTR,R3 


PRINT PATRN NUMBER 
: TYPE MSG 
PRINT NUMBER 
TYPE MSG 
0,R3 
000010 000674 ;SEE IF WRITE OPERATION 
PA :1F SO: BR 
010000 000562 . ;SEE IF READ REVERSE 
PAPRT3 F SO: BR 


000554 PAPRT1: ‘ 
000700 :SEE IF TAPE MARK TIME 


012100 000664 i 
000714 


024604 MOV #ASG14,R4 


IF NOT BACK SPACE: BR 


IF NOT RETRY: BR 
PAPRTY: ;GET RECORD NUMBER 
PAPRT2: INC R3 
PAPRT3: PRINT RECORD NUMBER 
000055 000640 MOV LOAD DASH (=) 
023756 ;PRINT DASH (-) 


000554 

PRINT RECORD COUNT 
024514 #MSG7,R4 

: TYPE MSG 


000556 FMCNT,R3 ;GET CHARACTER COUNT 
R3 ;FORM TWO'S COMPLEMENT 
PRINT RECORD SIZE 
000001 000666 V #1, HORFL SET HEADER FLAG 
023162 000207 PC ; RETURN 
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CZTURA.P11 13-JUN-78 10:30 SEQ 0104 
4692 
4693 pReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeenteeeeeeeeeteeee 
sane RANDOM NUMBER GENERATOR SUBROUTINE: 
4696 ; THIS SUBROUTINE IS USED TO GENERATE THE RANDOM 
4697 ;NUMBERS REQUIRED FOR USE AS RANDOM DATA, 
4698 RECORD COUNT, AND CHARACTER COUNT. 
4699 PRRRRRA Ree eeAeeeeA AAT eee eee ee eee ee eeeeeAeeteeeeeeeeee 
4700 
4701 023164 063737 000630 000626 RANG: ADD RANSAV,RANBAS 
4702 023172 063737 000626 000630 ADD RANBAS,RANSAV ;GET NEW NUMBER 
4703 023200 023701 000630 CMP RANSAV,R1 ;SEE IF NUMBER TOO BIG 
4704 023204 101367 BHI RANG :1F SO: BR 
4705 023206 020237 000630 CMP R2,RANSAV SEE IF NUMBER TOO SMALL 
4706 023212 101364 BHI RANG :1F SO: BR 
apes 023214 000207 RTS PC sEXIT 
ane ; SUBROUTINE TO GET NEW SOFTWARE SwWR 
4711 023216 022737 000176 000610 GTSWR: CMP #SWREG, SWR BRANCH IF SOFTWARE SWR 
4712 023224 001027 BNE 1$ NOT INVOKED 
4713 023226 004737 023306 JSR PC,.SAVE 7 SAVE REGISTERS ON THE STACK 
4714 023232 012704 024436 MOV #SMSWR,R4 sTYPE "SWR = 
4715 023236 000004 TYPE TYPE MSG 
4716 023240 017703 155344 MOV @SWR,R3 GET CURRENT SWR 
4717 023244 104400 TYPOCT 
4718 023246 012704 024446 MOV #SMNEW ,R4 ASK FOR NEW SETTING 
4719 023252 000004 TYPE TYPE MSG 
4720 023254 013705 000610 MOV SWR,RS TTR ROUTINE RETURNS VALUE TO (R5) 
4721 023260 012701 000007 MOV #7,R1 sLIMIT RESPONSE TO 7 CHARS 
4722 023264 012702 177777 MOV #177777 ,R2 ;BETWEEN 0 AND 177777 
4723 023270 012703 000000 MOV #0,R3 
4724 023274 004737 023352 JSR PC,TTR :GET RESPONSE 
4725 023300 004737 023330 JSR PC, RESTORE RESTORE REGISTERS 
rhs 023304 000207 + 1$: RTS PC ; RETURN 
4728 ;;ROUTINE TO SAVE REGISTERS ON THE STACK 
4729 023306 010546 SAVE: MOV %5,-(SP) 3:R5 IS SAVED AT 12(SP) 
4730 023310 010446 MOV %4,-(SP) 3:R4 IS SAVED AT 10(SP) 
4731 023312 010346 MOV %3,-(SP) 3:R3 IS SAVED AT 6(SP) 
4732 023314 010246 MOV %2,-(SP) :3R2 1S SAVED AT 4(SP) 
4733 023316 010146 MOV %1,-(SP) 3:R1 IS SAVED AT 2(SP) 
4734 023320 010046 MOV 20,-(SP) 3:RO IS SAVED AT (SP) 
4735 023322 016646 000014 MOV 14(SP) ,=(SP) :;PUSH RETURN PC ON THE STACK 
tt 023326 600207 RTS PC ;;RETURN TO CALLER 
4738 7;ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 
4739 023330 012666 000014 » RESTORE : MOV (SP)+,14(SP) :; STORE RETURN PC ON STACK 
4740 023334 012600 MOV (SP)+,2%0 
4741 023336 012601 MOV (SP)+*,21 
4742 023340 012602 MOV (SP)+,2%2 
4743 023342 012603 MOV (SP)+,23 
4744 023344 012604 MOV (SP)+,24 
4745 023346 012605 MOV (SP)+,25 
4746 023350 000207 RTS PC 7; RETURN 
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FRRAAAAAAAKAKAA AAA KAA AAA eee eee eeeeeeeekeeeeekeeeeeeest 


TTY ENTRY SUBROUTINE: 


THIS SUBROUTINE IS USED BY THE TEST CONDITION 
ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
;AT THE TTY AND CHECK THEM FOR LEGALITY AND 
LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
:(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
THE CALLING ROUTINE. 

:1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
zA QUESTION MARK IS TYPED (7?) AND THE RESPONSE 
sMAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
;CARRIAGE RETURN 


FERRE AAA AAA AAERAAAAEARAAAAERAARAARAAAAARAAARKEREEE 


023352 010146 : R1,-(SP) SAVE CHAR COUNT 
011601 : (SP),R1 RESTORE CHAR COUNT (FOR U) 
000644 al CLEAR FIRST CHARACTER FLAG 
023604 : PC,TTIN :GO READ CHARACTER 
000003 000642 1 BRANCH IF NOT C 


000200 @#200 ;RESTART AT 7 
000015 000642 3 #15,TIB SEE IF CR 
2$ 71F NOT: BR 
000644 TEMP1 SEE IF FIRST CHARACTER 


9$ z1F SO: BR 
ELSE GO LOAD VALUE 


8 6$ 
000025 000642 : tla BRANCH IF NOT CONTROL U 


025131 #hSG28,R4 TYPE <CR><LF> 
TYPE MSG 


10$ 
000177 000642 : 3. BRANCH IF NOT ‘RUBOUT' 
REMOVE LAST CHARACTER 


RO 
027247 . sTveE * * 
‘ TYPE MSG 
DEC CHAR RECEIVED COUNT 
$ GET NEXT CHARACTER 
00006C 000642 : SEE IF CHAR IS LESS THAN 0 


TINER 
000070 000642 : SEE IF CHAR IS GREATER THAN 7 
000644 : 4 SET FIRST CHARACTER FLAG 
sSHIFT 3 LEFT 


RO 
0 177770 000642 #177770,T18 sSTRIP ASCII 
023540 053700 000642 TIB,RO ;LOAD CHARACTER 
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CZTURA.P11 
023544 


023602 


13-JUN-7 
005301 


000207 


012704 025636 
000004 
005726 
162716 000020 
000207 
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4+ oF "y 
‘SEE IF EXCEEDED MAXIMUM LIMIT 
SEE IF BELOW MINIMUM LIMIT 


;LOAD VALUE 
a COUNT OFF STACK 
x 


#ASG43,R4 
: TYPE MSG 


(SP)+ POP CHAR COUNT OFF STACK 
#20, (SP) RESET SP TO START OF VALUE ROUTINE 
PC REDO VALUE ENTRY 


SEQ 0106 





TMO3/TUGS DATA RELIABILITY 


CZTURA.P11 


023754 
023756 


023772 
023774 


024016 


13-JUN-7 


005277 


000207 


112437 


000002 
105777 


000207 
012703 


000713 


L 
8 


P 
10:30 


155002 
154776 


154772 
000200 
000642 
023756 


000640 
000640 


000045 
000041 
023756 
000015 
023756 
000006 


000640 
023756 


000012 
023756 


154634 
000640 
000002 


000007 
023756 


ROGRAM 


000642 
000642 
000640 


000640 
000640 


000640 


000640 


154626 


000640 
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sTTY READ SUBROUTINE teeereeere 


atks 
aTks 
1$ 


aTkB,TIB 
#200,TIB 
T1B,T0B 
PC,T0G 
PC 


STRIP PARITY BIT 
sMOVE CHAR TO TTY OUTPUT BFR 
;ECHO CHARACTER 


OUTPUT SUBROUTINE ttttreeeteee 


(R4)+,TOB 


:D0 BELL 


:D0 FILLERS 


; RETURN 


; RETURN 


SEQ 0107 
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sOCTAL OUTPUT SUBROUTINEttteeereeeese 


005037 024232 : OFL ;CLEAR FLAG FOR LEADING ZERO 
mM R3,R4 SEE IF NUMBER IS ZERO 
OCcTPO :1F NOT ZERO: BR 
024212 PC ,OCTPG1 ELSE PRINT ZERO 
OCTPS ;SPACE AND EXIT 
BRANCH IF MSD = 0 


000001 #1,R4 
024170 sPRINT 1 
024064 P2 


: R4 
024170 J ;PRINT 0 
R3,R4 


;POSITION DIGIT 


R4 
024170 . sPRINT DIGIT 2 
3,R4 


R4 
024170 sPRINT DIGIT 3 
3,R4 
4 
024170 :PRINT DIGIT 4 
3,R4 


024170 


024170 J ’ :PRINT DIGIT 5 
000240 000640 ocTP3: 
023756 J PC, TOG :PRINT SPACE 

I 


R : 
177770 OCTPG: #177770,R4 
OCTPGO 
024232 OFL 
OCTPGO 
024204 000207 P 


024206 005237 024232 OCTPGO: 
052704 0 OCTPG1: 
010437 
004737 023756 
010304 
000207 
024232 000000 : 0 sFIRST CHAR FLAG 
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:DATA CHARACTER OUTPUT SUBROUTINE*#teereeeeee 
012704 000010 #10,R4 SET NUMBER TO PRINT 
000640 R3,T0B 
154346 : . 
000640 . 
000061 154332 —— 
000060 154322 : #060,aTPB 
000640 3$: TOB 
000207 
013703 000650 - oe 
024234 PC ,DOUT 
000650 TEMP3,R3 
024234 PC ,DOUT 
024332 000207 PC 
3TU45 SERIAL NUMBER PRINT SUBROUTINE**#e«% 


024334 010304 


4 
024412 " PRINT FIRST DIGIT 


4 
024412 PRINT SECOND DIGIT 
3,R4 


4 
024412 PRINT THIRD DIGIT 
R3,R4 
024412 :PRINT FOURTH DIGIT 
sEXIT 


R : 
000260 000640 SNPG: SET NUMBER BASE 
177760 B _ #177760,R4 :MASK NUMBER 
000640 R4,TOB :BUILD DIGIT 
023756 PC,T0G :GO TYPE 
024434 000207 PC ; RETURN 
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SERROR MESSAGESteeererenee 
024436 051445 051127 036440 : .ASCIZ /2ZSWR = / 
053505 036440 : .ASCIZ 


020105 000 
000040 


000040 
000 
000040 
000 i oe / 
051124 Dar /*PATRN / 
000 
047123 020072 Fy /ZSN: / 
042523 000040 : /*SE / 
040514 L* /*SLAVE NO. / 
027117 
042045 : /ZRZ0RIVE NO. / 
047040 027117 
047102 ee e » /%*BN / 


/*RN / 
/%! BAD RECORD22/ 


0 
022504 


/ F/ 


ts / R/ 
020124 oe /' EOT NO: / 
024656 020072 000 


024663 045 047111 042524 : /ZINTERCHANGE READ = / 
043516 
042101 
042514 i « /RZ!ILLEGAL BOT: HALT22%/ 
047502 
046101 
000 
051503 020061 /2CS1 / 
041527 000040 MSG23A: 
000 : 


000040 
000040 


000 
000040 
000 
000040 
6 000 es 
025023 045 051115 000040 msG23J: 


~~ SSS 
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025030 042045 Srease 000 MSG23K: .ASCIZ /Z0T / 
045 MSG23L: .ASCIZ /ZTC / 


MSG23M: .ASCIZ /ZSN / 
MSG24: .ASCIZ /%!NO INTERRUPT2Z/ 


MSG25: .ASCIZ /%!NO MOL: HALT2/ 


MSG26: .ASCIZ /2ZDROPS: / 
051513 MSG27: .ASCIZ /ZPICKS: / 


MSG28: .ASCIZ /%/ 
047515 MSG30: .ASCIZ ‘XZTMO3-TUSS AUTO SEQUENCE (CZTURAO)%';++B 


024460 
031460 ys "ZZTMOS-TU4S DATA RELIABILITY TEST (CZTURAO)2';++B 


030101 
020105 MSG31A: .ASCIZ /TYPE <CR> TO TERMINATE ALL REQUESTS & C TO RESTART%/ 


/%SLAVE NUMBER 
/ZDENSITY = 
020131 020075 
040520 044522 bs /ZPARITY = 
/%RECORD COUNT 
/%CHAR COUNT = 
052116 
042524 Hes /%PATTERN NUMBER 
046525 


020122 020075 
025474 
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rs tetes 045 044523 043516 MSG38: .ASCIZ /2ZSINGLE PASS = / 


MSG39: .ASCIZ /2CRC CORRECTION (YES=1,NO=0) = / 


020051 
052116 MSG40: /ZZENTER STALLSZREAD 


042524 MSG41: /EWRITE = / 
025612 036440 000040 


025616 052045 051125 ve the MSG42: . /%TURN AROUND = / 


MSG43: . /22%/ 
051105 MSG44: . /ZENTER YOZZLE STALL 
046132 
046101 


000 
020122 mSG4s: /ZERR AMT / 
000040 msG46: /2EC / 
000 MSG47: /ZCA / 
020117 MSG48: - /%!NO BOT ON REWIND: HALT2Z/ 
047117 
047111 
046101 


040440 MSG49: . /2NOT AVAIL / 
MSG50: /ZILLEGAL DRIVE TYPE / 
050131 
053111 MSGS2: . /ZORIVE NUMBER = / 
041115 
000040 
vag MSG53: . /ZFORMAT = / 
042527 052040 msG54: . /*WE TM/ 
020105 046524 msG55: . /*SE TM/ 
046524 000 MSG56: . / TA/ 
MSG57: . /ZNON-EXIST SLAVE/ 


MSG58: . /ZCRC / 
000040 MSG59: /ELRC / 
MSG60: . /*D0 / 
026130 050052 000040 MSG61: . /*P / 
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026134 043052 000040 MSG62: .ASCIZ /*F / 
MSG64: .ASCIZ /Z*ORIGINAL ERROR*/ 
054522 MSG65: .ASCIZ /2ZRETRY: / 
020105 MSG66: .ASCIZ /*!SE RTRY / 
000040 
051105 051501 MSG67: .ASCIZ /*'ERASE/ 
vail 053105 MSG68: .ASCIZ /ZREREV: / 


042520 MSG69: .ASCIZ /ZTAPE MARK = / 
020113 


020117 MSG70: .ASCIZ /%Z!NO DRY FROM REWIND: HALT2/ 


MSG71: .ASCIZ /%NON-EXIST DRIVE/ 


042127 MSG72: .ASCIZ /2ZREFWD: / 
051105 MSG73: .ASCIZ /2WTERR: / 
051511 MSG74: .ASCIZ /ZREGISTER START = / 
052123 
020124 020075 
042526 052103 MSG75: .ASCIZ /2%VECTOR = 
000040 
053105 MSG76: .ASCIZ /2XDEREV: / 
053506 MSG77: .ASCIZ /2DEFWD: / 
026516 MSG78: .ASCIZ /%Z!NON-RETRYABLE WRITE ERROR: ER / 
040531 
051127 
051105 
042440 


047117 MSG79: /%!NON-RETRYABLE READ ERROR: ER / 


042440 
047105 MSG100: .ASCIZ /%!!END OF PASS %/ 


MSG101: .ASCIZ /2Aeereeeeeeeceeeeerere/ 


2 
026570 025052 025052 
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026575 052 046524 031460 MSG102: .ASCIZ /*TMO3 / 
040514 042526 MSG103: .ASCIZ /*SLAVES / 


000 
052501 047524 MSG104: .ASCIZ /ZAUTO CONT: / 
047117 035124 


041505 eae *' MSG105: .ASCIZ /ZRECOVERED/ 
040502 MSG106: .ASCIZ /*!!BAD TAPE OVERFLOW/ 
042520 
043122 


047111 MSGI6A: .ASCIZ /2%REWIND TAPE; RESTART AT BLOCK 1/ 


045503 
047125 MSG107: . /%!!UNRECOVERABLE BAD SPOT/ 
042526 
020105 
050123 


020104 ° /%BAD RECORD LEFT ON TAPE%/ 


050101 
047520 MSG109: .ASCIZ /*!!POSITION LOST IN RETRY/ 
047117 
020124 
052105 
050123 MSG110: . /%ZSUSPECT BAD TAPE/ 
040502 
040524 042520 
042522 042520 MSG111: . /ZREPEAT: / 
MSG112: . / BAD TAPE SPOTS2/ 
027120 047520 051524 000045 


027126 020045 047523 052106 MSG113: . /% SOFT: / 
027134 020072 000 


027137 045 044040 051101 MSG114: . /% HARD: / 
027144 035104 000040 


027150 020445 044041 051101 msG115: . /%!!HARD READ ERROR/ 
042522 042101 
051122 051117 


45 052441 044516 MSG116: . /RIUNIT IS REWINDING: TEST WI TART AT BOT/ 
027200 051511 051040 wat “ 
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027340 


027346 


033354 


13-JUN-7 


053505 
0 


051525 


027346 
000000 


033354 
000000 


000001 


047111 


022505 


044504 
042524 
046111 
051101 
041040 


047515 


042524 


042122 
051440 
020116 

000 


. % 
MACY11 30(1046) 22-JUN-78 09:14 PAGE 115 


MSG118: 
MSG120: 


MSG121: 


eASCIZ / / 
-ASCIZ /ZREMOVE TMDP FROM SLAVE TO BE TESTED%/ 


-ASCIZ /ZHARDWARE SWR IN USE%/ 


sWRITE BUFFER 


READ BUFFER 


SEQ 0115 
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000742 000732 014334 015476 000524 sy 


007404 014326 EOTREC 000662 000666 
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005032 MSG23M 025042 026333 RANSET 004276 010522 


025035 026322 RANSAV 000630 010500 005376 
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TINP2C 013272 005550 005656 
TINPS 3312 


SSVPC 
“RESTO 023330 
-SAVE 023306 
0 
TINP2B 013244 005534 005616 
033356 000 


ERRORS DETECTED: 0 


,CZTURA.SEQ/SOL_CZTURA.P11 
RUN-TIME: 60 108 6 SECONDS 

RUN-TIME RATIO: 894/175=5.0 
CORE USED: 14K (28 PAGES) 





